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31? » DESTINATION/SOURCE CODE FIELD (PREVIOUS PAGE) » 

313 • *. OETERMlNiF WHAT BIT CONFIGURATION IS USEO. » 

314 o » 

31 f~ » MIO rtUS fITS * 
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32 • -7V70- (OUTPUT) (UPH) » (LWH) » 
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32? »RST • • SET»SET » * SET»SET »RST * »RST o SET* SET* RST» SET* SE1* SET* 

323 *DATA» » » WRT»WRT • o « REW»OFF »REW » • *FWO » FWD* REV» WPT* WRT»FVEN» ODD* 
3eu * F/F« • STb»RST • * *LINE*b,O.L» »REV ***«»»* 

32 E ««ft»44«4ttt««*»ftfl««ffftt»«o«Ott««ttft«l»#*««»«»tt«ttft««fi««««0V*««««tt«<t4tttt»»4ttttttftfitt«ff»»«« 

32^ » -STATUS- (OUTPUT) fUPH) » (LWH) » 
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32<- »RST • • * "SET *SET »SET «SET *EVEN» OOD« SET*TAPE»TIM-«T APE* SET* CLR» 

324 »DATA» * * « « » »UNIT«UNIT*UNIT»UNIT«BYTF»BYTE» EOF«EkR-» ING*PUN-»PEJ *STA » 
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33? « -XF ACE- (OUTPUT) HUPH) « (LWH) « 
337 tt******************************************************************************** 
334 • RST*SPT« SET* RST* SET* PST* CLP* CLK* RST* SET* RST* SET* SUP* ENB* SE1* SET* 
33 c »DATA»U'T* FO • FO * DEV«UNIT* BUS* INT* F2 » F2 « Fl * Fl » PAR* PAR* OU1* IN « 
33f- • F/F«I"'T« » « END* INT*LOGC» F/F* * * * * HIT* Bl T*MOOE»MODE» 
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35. SkP 
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O 
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o 



35' 
35? 
353 
354 
35* 
356 



357 0000 00 111 110 100 110 001 100 START OTl UPH Dll #163 



35« 
351 
360 
361 
36? 
363 
364 
365 
366 
367 
36A 
369 
370 
371 
37? 
373 
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377 
378 
370 
380 
381 
38? 
383 
384 
385 
386 
387 
38« 
389 
390 
391 
392 
393 
394 
395 
396 
397 
39fl 
399 
*«!0 



» o 

« POWER ON. I/O RESET OR RESET FROM THE MAINTENANCE « 

» PANEL FORCES ThF CONTROLLER AT THE ADDRtSS O(START). o 

» o 
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> 



oo«ii 

00C2 
0003 
0004 
O0C5 
O0C6 
0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 



0017 
0020 
0021 



0022 
0023 
0024 
0025 
0026 
0027 
0030 
0031 
0032 
0033 
0034 
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00 
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01 
00 
00 
00 
00 
10 
10 
10 
00 



11 
11 
11 



11 
11 
11 
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00 
00 
00 



001 
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111 
111 
111 

010 

111 
111 
111 
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111 
111 
111 

010 
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100 
100 



no 

110 

111 
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001 
100 

no 
no 
111 
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no 

100 

111 



111 

110 

111 



no 
no 
no 
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in 
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001 
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001 
000 
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on 
on 
on 

000 
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101 
101 
000 
100 
100 
101 
000 
000 
000 



110 

000 
100 
110 
001 
000 
010 
010 
000 

on 
111 

101 
101 
010 



100 on 
ioo on 

no ooo 



on 
oio 

000 
110 
000 
000 
100 
000 
010 
001 
001 

no 
no 
on 



111 

110 
000 
100 
001 
110 
101 
001 
100 
100 
100 

111 
111 

010 



101 
101 
101 
110 
110 

no 

110 

000 
010 

lib 



000 
000 
110 



in 
111 
in 

000 
000 

on 

001 

on 

001 
000 



on 

on 

010 



on 
on 
on 
oio 

001 

on 
in 

101 
100 
100 



XOR 


CTM 


R3B 


R3A 


OTI 


UPH 


DU2 


#351 


Psl 


UPH 


ROM 


#377 


P9l 


UPH 


CTM 


TSTOP 


OTI 


LwH 


000 


#27^ DEC 


JxZ 


RrS 


o 


DEC 


on 


LWH 


006 


#13? 


OTI 


UPH 


D00 


#176 


OTI 


uph 


D02 


#353 


JuP 


PTCHl 




PSI 


LwH 


RlM 


#63 


PM 


UPH 


HSM 


#210 


PSI 


LWH 


R5M 


#210 


Inc 


Imp 


R41 


D20 



RST DATA fc CMD ENB F/F-SELECT UNIT «0 
REGISTER f. THE COUNTER 

RST. FO, BUS-LOGIC h. UNIT INT F/F 

R0(0:71 :=ALL ONES 
WAIT P9l UPH CTM TSTOP CNTR J= STOP DELAY 

RESET FWD. REV. 6, SET ODD PARITY MOOt 

TIMF OUT THE COUNTER 
CONT OTI LWH D06 #13? RST. Fl.F2lENABLt PARITY S. IN-MODt 

RST DAT* F/F. REWIND k OFF-LINF 

RESFT fO 6. UNIT INT. F/F 

GOTO PTCHl TO LOOK FOR END INTFRRUPT 
CONT1 PSI LwH RlM #63 0011001100110011 

R5:=(SELtCT THIS UNIT NOW) 

1000100010001000 

GET PRESENT UNIT NO. IN R4 

• « 

• HERE THE CONTROLLER WAITS FOR A 'CONTROL-ORDER t FROM THE MULTIPLFXOR. » 

• IF NO CONTROL COMES, IT GOES TO 'SCAN' TO LOOK FOR THE LATEST •> 

• DoIVE-REAOY STATUS. THE CURRENT SELECTED UNIT INFORMATION » 
» IS STORtn IN THE REGISTER R4. « 
» « 
#«««««»««ft««ftit4«tttt«i.ft««itt«ft««ftt.«««oft»«««««ftt«tte«*«««»tft»««att»ft»o«fttt«»«i»«t« 
MAIN JFS F16 REJECT REJECT IF IN-AFFR 

JFS F12 REJECT OR OUT-XFER = 1 

JFS F17 SCAN GOTO SCAN IF NO CONTPOL ORDER 

« « 

o FNTRY AT 'BEGIN' ONLY IF A CONTROL ORDER IS ISSUED FIRST « 

« a 

««•»•»»««» «e*«ee«*«*«o e «0tt«ea««««a«t>«»«««o«»»««aa»«« ««*»»«»»««•««•«»««««««•«««»» 



BEG2 



000 111 000 000 000 111 



ROTATE R4 LtFT BY 4 
ADJUST PROPER CODE FOR 
LAST UNIT SELECTED AND 
001 OUTPUT TO SELECT IT 

RST. STATUS. CMD. ENB. «■ BYTE CNT. 
GET COMMAND WORD IN P3 
PASS LOW HALF OF R3 IN RO 
GOTO DECOD IF NOT A SELECT COMMAND 
D20 SELECT THE PROPER 

021 UNIT k. SET SERV. REO. 

GOTO CONT 

«»»»#t»«««»tnim.iH»«».«»«««»t«««*«in»«4»«m»»»«i».'mt«m»«»«»»»»«»««« 
SkP 



BEGIN PSA R4M 
PCA R4M 
PSA R4M 
IOC OUT 
OTI LWH 
IOC 1NP 
PSB LwH 
JmZ RCS 
IOC INP 
IOC Ot/T 
JwP CONT 



R4A 

R4A 

R4A 

UPH 

Dll 

R3I 

ROM 

OECOD 

UPH R2I 

UPH R2I 



RL4 

RL4 

RL4 

R4I 

#176 

D31 

R3B 



4il? 

4t;3 

-4 4 5 


















tt«««««««o««««0«o»«««tfoa«« 


«««4««««ll»» 


















* THE 

4 


given command 


IS OFCODto HERE 


















««»««4«««4«««««»«»a«««««ol»««^i»ttO«««« 


4«l6 


0035 


11 


100 


no 


110 


ooo 


on 


111 


OECOD 


JFS 


Fl3 o*2 






407 


0036 


00 


000 


m 


000 


Oil 


ooo 


on 




JmP 


RFJECT 






41>R 


0037 


10 


no 


101 


111 


100 


001 


111 




AM 


LwH R3B 


#3f>ri 




4«9 


0040 


00 


oil 


101 


000 


Oil 


000 


on 




JMZ 


RCS REJECT 




^10 


0041 


10 


no 


101 


001 


111 


111 


001 




AM 


LWH R2M 


R3B 


RDR 


411 


0042 


10 


001 


101 


110 


Oil 


111 


001 




xn I 


LwH R2B 


RDR 




412 


0043 


00 


on 


in 


000 


010 


111 


100 




JmZ 


"DFWO 






413 


0044 


10 


001 


101 


110 


on 


111 


on 




xol 


LWH R2B 


WRR 




n\h 


0045 


00 


on 


111 


000 


Oil 


001 


101 




J«Z 


wpFWD 






415 


0046 


10 


110 


101 


111 


111 


110 


111 




AM 


LWH R3B 


»10 




4lf, 


0047 


00 


on 


111 


ooo 


on 


000 


on 




J^Z 


REJECT 






417 


0050 


10 


001 


101 


110 


on 


111 


101 




Xol 


LWh R2B 


RDRFV 




4lp 


0051 


00 


on 


111 


000 


010 


100 


001 




JmZ 


ROBKD 






4l<4 


0052 


11 


100 


101 


010 


ooo 


101 


100 




JFS 


F05 o*2 






420 


0053 


00 


000 


111 


000 


000 


101 


101 




JmP 


• ♦2 






421 


0054 


01 


no 


111 


000 


OOl 


000 


100 




CaL 


GOFWD 






422 


0055 


00 


111 


111 


ooo 


000 


000 


100 




OTI 


UPH D20 


#373 




423 


0056 


10 


no 


101 


111 


111 


111 


110 




AN I 


LWH R3B 


Ml 




424 


0057 


00 


on 


111 


000 


ooo 


000 


111 




JmZ 


CONT 






425 


0060 


00 


m 


no 


000 


ooo 


000 


010 




OTI 


UPH DOO 


#37S 




426 


0061 


00 


000 


in 


000 


ooo 


000 


111 




J»/p 


CONT 






427 
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tt«»«B»««»«« 


42s 


















• 'SCAN" CONTINUOUSLY SFLECTS A UNIT 


43 i 


















» 


DONE 


ONLY IF CONTROLLER IS IN I 


431 


















» 


-ERRUPT F/F 


IS SET WHEN A UNI 


43? 


















4 


READY. AN 


INTERRUPT IS GENE 


433 


















a 










434 


















»»»M»H|H>»»«»»»«»»»»»«»«lt»«t»»t»lt»«« 


435 


0062 


00 


010 


in 


001 


010 


001 


on 


SCAN 


IOC 


INP R3I 


022 


UPH 


436 


0063 


00 


000 


in 


001 


Oil 


010 


111 




JmP 


PTCH2 






437 


0064 


00 


on 


101 


000 


000 


001 


111 




JMZ 


RCS MAIN 






43fl 


0065 


00 


010 


no 


000 


no 


000 


101 


SCANO 


IOC 


OUT UPH 


R1I 


D01 


439 


0066 


10 


in 


100 


001 


111 


101 


111 




PSl 


LWH CTM 


«20 




440 


0067 


11 


010 


in 


010 


100 


111 


111 




PSB 


RIM RIB 


RL1 




441 


0070 


11 


111 


no 


on 


100 


no 


111 




PSA 


R5M R5A 


RL1 




442 


0071 


01 


010 


001 


000 


000 


111 


001 




JxZ 


RCS DEC 


« 




443 


0072 


11 


100 


no 


110 


ooo 


111 


111 




JFS 


F13 READY 






444 


0073 


11 


no 


m 


111 


010 


000 


111 




And 


UPH ROB 


R5A 




445 


0074 


00 


on 


m 


000 


000 


001 


111 




JmZ 


MAIN 






446 


0075 


11 


001 


in 


101 


010 


000 


111 




XOR 


UPH ROM 


ROB 


R5A 


447 


0076 


00 


000 


in 


000 


000 


001 


111 




JMP 


MAIN 






448 


0077 


11 


110 


m 


111 


010 


ooo 


111 


READY 


and 


UPH ROB 


RbA 




449 


0100 


00 


on 


101 


000 


000 


001 


111 




JMZ 


RCS MAIN 






450 


0101 


11 


001 


m 


101 


010 


000 


111 




XOR 


UPH ROM 


ROB 


R5A 


451 


0102 


00 


111 


no 


001 


OOl 


000 


000 




OTI 


UPH D02 


#277 




452 


0103 


00 


000 


in 


000 


Oil 


000 


111 




JmP 


INT2 






453 
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454 




















SkP 









4 

TO LOOK FOR WHICH SUbGROUP IT btLONGS TO. « 

rejfct the command if 

tape unit is not peady 
look for illegal bits in r3 
reject the command if illegal bits in r3 
mask off sub-group cmd. code in r.2 
goto rdfwd if read 

forward command 
goto wrfwd if 

write command 
goto reject if command is 

any of three remaining illegal codes 
goto rdhkd if read 

reverse type command 
skip next if wkt. status=1 
skip next instruction 
sub. call to avoid noisf in gap 

SET REWIND «. SERV, RfO 
LOOK FOR REW OR RST 
GOTO CONT IF'REW COMMANO 
SET OFF-LINE F/F & GOTO 
CONT IF <RST' COMMAND 

4 

fc LOOKS FOR ITS READY STATUS. THIS IS « 
DLE STATE (NO SIO GOING ONI. UNIT INT- » 
T « PREVIOUSLY 'NOT-READY' BECOMES • 

PATED TO TELL THE CPU ABOUT IT. » 

» 

GET STATUS BYTE IN R3 

GOTO PATCH THE PROGRAM 

GOTO MAIN IF ALREADY IN SIO ROUTINE 

SELECT UNIT FROM Rl 

PRESET CNTR TO 16 CYCLE DELAY 

Rl S. R5 ARE ROTATED 

LEFT BY ONE BIT 
TIME OUT THE COUNTER 
GOTO READY IF F13=l 
WAS THIS UNIT READY BEFORE ? 
NOT ROY BEFORE; NOT RDY NOW-GOTO MAIN 
RDY BEFORE I NOT ROY NOW-MODIFY RO 
GOTO MAIN 

WAS THIS UNIT READY BEFORE ? 
ROY bEFOREI RDY NOW-GOTO MAIN 
NOT RDY BEFORtJ RDY NOW-INT. CASE 
SET UNIT INTERRUPT F/F 
GOTO INT? 



O 



> 



CO 

o 



<.5s 



4 56 


















457 


















45« 


















<i5<* 


















46 , 


















461 


















46^ 


















463 


0104 


10 


111 


110 


001 


no 


010 


101 


464 


0105 


CO 


111 


100 


000 


000 


100 


000 


465 


0106 


01 


010 


001 


000 


001 


000 


110 


466 


0107 


10 


HI 


no 


001 


no 


110 


100 


467 


0110 


00 


111 


000 


uoo 


001 


001 


000 



48? 
483 
484 
485 
48ft 
487 
48A 
489 
490 
491 
49? 
493 
494 
49«J 
49* 
497 
49h 
499 
b',0 
5vl 
5u2 
503 
504 
505 
5^6 
507 
5C« 
5..<V 
51 



o « 

• this subroutine makts the tape go forward & erase some part of the tape <• 
before executing a backspace oh rewind type command when the current « 
» Im write: heads was on. this ensures That noise Character is not « 

• written in the r,ap when write current in heads is switched. « 

• o 



en 

> 



GOFwO 



PM 


UPH 


CTM 


TS1S5 


OTI 


LWH 


D00 


#337 


J*Z 


RfS 


DEC 


o 


P<U 


UPH 


CTM 


TSTOP 


OTI 


LWH 


DOO 


DEC #267 



46* 0111 01 010 001 000 001 001 001 
46Q 0112 01 101 111 111 111 111 111 

47- 
471 
47? 
473 
474 
475 
476 
477 
47P 
47Q 



JxZ RCS DEC 

RTN 



CNTR!=.155 INCH ♦ START DELAY 

SET FWD F/E 

TIME OUT THE COUNTER 

CNTR:=ST0P DELAY 

RST. FWD. -REV. E/F &WRITE F/F 

TIME OUT THE COUNTER 

SUBROUTINE RETURN 



00000000000000000*00000000000000000000000000000000000000000000000000000000000000 

» o 

• SUBROUTINE BLANK ATTEMPTS TO GET A READ CLOCK OR END-OF-BLOCK • 

• (IN 1600 BPI> WITHIN 2b FEET OF TAPE WHEN CONTROLLER HAS » 

• INITIATED A READ OPERATION. FO IS SET IF RD. CLK. IS * 

• FOUND. IF RD. CLK. OR EOB IS NOT FOUND. TAPE- • 
» RUNAWAY F/F IS SET INDICATING AN ATTEMPT o 

• IS MADE TO READ BLANK TAPE. « 
» * 

<0000000000000000000000000000000000000000000000000000000000000»00000000000000000 



480 0113 10 111 111 Oil 111 101 111 BLANK P<;l UPH RIM #20 

481 0114 10 111 110 001 100 000 101 TIMER PSl UPH CTM TGAP 



0115 
0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 



11 
11 
00 
11 
01 
00 
00 
00 
00 
00 

11 
11 

01 



100 
100 
000 
100 
010 
001 

on 
111 

000 

111 

001 
001 
101 



010 
001 

on 

001 
001 

111 

101 
100 

111 
no 
no 
111 
111 



000 
000 
000 

no 

000 
010 
000 
000 
000 

on 

001 
001 

111 



001 
001 
001 
001 
001 

111 

001 
100 
Oil 
000 
110 

no 
111 



010 
010 
010 
010 
001 

111 

001 
000 
000 
100 
Oil 

on 
111 



110 

000 
001 

111 

101 

no 

100 
100 
100 
000 

111 
111 
111 



NBLK 
NB16 



JFS 
JFS 
JmP 
JFS 
JxZ 
Anl 
Jm? 
OTI 
Jwp 

OTI 

XoR 
XoR 

RTN 



F10 

F04 

0*2 

F(l7 

RCS 

UPH 

PCS 

LWH 

INTER 

UPH D06 

CTM R3B 

R?M R3B 



DEC 

DEC 

DEC 

DEC 

DEC 

RIM 

TIMER 

001 #373 



NBLK 
0*2 

NBlh 

0-4 

RIB 



#337 

R3A 

R3A 



«l:=-240(IN UPPFR HALF) 

CNTR:=TlMFR FOR 1.25" OF TAPt 

GOTO NBLK IF RD. CLK.=1 

NO SKIP IF BOO PPI 

SKIP NEXT INSTRUCTION 

GOTO NBlb IF EOB=l 

WAIT FOR CNTR TO T I MF OUT 

RlSrRl*l 

STAY IN LOOP TILL TIMER NON-ZERO 

SET TAPE RUNAWAY BIT 

GOTO INTER 

SET FO TO INDICATE I RD. CLK. 

ZERO OUT THE COUNTER 

ZERO OUT R2 (CRC REGISTER) 

SUBROUTINE RETURN 



0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 



10 
01 
01 
01 
11 
00 
00 
ul 



111 

000 
000 
010 
100 
000 

111 

101 



no 
111 
111 

001 
110 

111 

100 

111 



001 100 000 101 

111 111 111 111 



111 111 

000 001 
000 001 
000 001 
010 100 

111 111 



111 111 
on on 



100 
100 
010 

m 



000 
001 
000 

111 



00000000000000000000000000000000000000000000000000000000000000000000000000000000 



SUBROUTINF WGAp ERASES 3.75 INCHES OF TAPE AM) » 

THEN CHFCKS FOR ANY NOISE LtFT IN THE GAP » 

• 

00000000000O00000000000000000000000000000000000000000000000000000000000000000000 

WGAP PsI UPH CTM TGAP PRESET CNTR. WJTH 1.25 IN. TIMER 

TIME OUT THREE 
TIMES THE VALUE 
0-2 OF THE COUNTER 

SKIP NEXT IF RD CLK = 1 
DONE-RETURN 
#357 SET TAPE-ERROR f. RST RD CLK-NOISE IN GAP 

RETURN 

00000000000000000000000000000000000000000000000000000000000000000000000*00000000 

SkP 



PSl 


UPH 


CTM 


NOP 






NOP 






JxZ 


RCS 


DEC 


JFS 


F10 


0*2 


J»<P 


e*2 




OTI 


LWH 


DOS 


RTN 







511 
51? 
51? 
5U 
515 
516 
517 
5lP 
519 
52C 
521 
522 
523 
524 
525 
526 
52? 
52* 
529 
53" 
531 
53? 
533 
534. 
535 
536 
537 
53P 
539 
54o 
541 
54? 
5*3 
544 
545 
546 
547 
S4K 
549 
550 
551 
552 
553 
55<» 
555 
556 
557 
S5fl 
55<? 
560 
561 
56? 
563 



»»»oo»o<n>»»oo»«otnt»eott(nnntinntinnt«(nt»e««o»oOBtni»i>»»«eoe(t(»ooeo«tttnnt»o<nntooee«nt(m«ii 



0142 
0143 
0144 
0145 
0146 
0147 
0150 
0151 
0152 



0153 
0154 
0155 
0156 
0157 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0200 
0201 



0202 
0203 



11 
00 
00 
00 

11 

00 
01 
00 
01 



11 

00 
10 

11 

01 
00 
10 

11 

01 
10 

11 

01 
00 
01 
10 
00 
01 

11 

00 

11 

00 
00 
00 



100 

111 
111 

010 

100 

111 

101 

111 

101 



100 
HI 

111 

100 
010 
000 
HI 
100 
010 

111 

100 
010 
000 
110 

111 
111 

010 
100 
HI 
100 

111 

000 

111 



on 

000 
010 
Oil 
010 
010 
Oil 
001 
Oil 



100 

no 

110 
010 
001 

111 

HO 
010 
001 
110 
010 
001 

111 

HI 
100 
100 
001 
110 
100 
100 
100 

111 

100 



000 
000 
001 
100 
100 
001 

111 

000 

111 



001 
100 
010 
110 
001 
000 

111 

000 

111 



010 001 
OH 000 
001 111 
000 001 
000 001 

000 Oil 

001 111 
000 001 

000 001 

001 111 
000 001 
000 001 
000 on 

000 111 

001 100 
010 000 
000 001 
000 001 
000 110 
010 010 
000 100 
000 010 
000 HO 



100 
001 
100 
Oil 
101 
010 

111 

000 

111 



110 
010 

111 
111 

101 

no 
111 
111 
no 
111 
111 

110 

no 
111 

000 
000 

111 
111 

100 
000 
010 
000 
100 



100 
000 
000 
001 
001 
000 
HI 
000 

111 



001 
000 
101 

111 

110 
101 
110 
HI 
010 
110 
000 
101 
101 
000 
000 
000 
Oil 

111 

000 
010 
000 
010 
000 



00 HI 100 Oil 010 100 000 
00 HI 110 101 010 010 000 



'WPCHc '-THIS SUBROUTINF GETS THE 
THF MULTIPLEXOR. CHECKS FOP DA 
<OUT-XFER« TO DECIDE whEN TO 



DATA-WORO (WHILE WRITING ON TAPE) FROM 
TA OVERRUN CONDITION 6. MONITORS 
TERMINATE DATA TRANSFERS. 



00000*«000000000000000000000000000 0000000000000000000000000000000000000000000000 



WRCHK JFS F14 DEC 

OTI LWH DEC 

OTI UPH DEC 

IOC IMP DEC 

JFS F12 DEC 

OTI UPH DEC 

RTN DEC 

OTI LWH DEC 

RTN DEC 



+ 2 
DOl 
D02 
031 
« + 3 
D02 



#36/ 
#137 
R5I 

#357 



D20 #37/ 



SKIP NEXT IF DATA F/F=l 

SET TIMING ERROR IF DATA F/F = 

RST DATA F/F fc SET FO 

GET DATA OUT WORD IN P5 

SKIP 2 IF OUT-XFtR=l 

RST FO INDICATING OUT-XFFR = 

SUBROUTINE RETURN 

SET SERV. PEQ. TO GET NEXT WORD 

SUBROUTINE RETURN 



00000000000000000000000000000000000000000000000000000000000000000000000000000000 



» 'FSROi - FNTRY HERE IS ONLY IF EXACTLY 1 CHARACTER READ FROM TAPE. « 

» 

00000000000000000000000000000000000000000000000000000000000000000000000000000000 



FSRO JFS 

AGAIN OTI 
PSI 
JFS 
JXZ 
JmP 

FMCHK PSl 
JFS 
JxZ 
PSI 
JFS 
JxZ 
JmP 
CAL 
PSI 
OTI 
JXZ 
JFS 

FM616 OTI 
JFS 

DROP OTI 
JmP 

FILE OTI 



FOl FMCHK 

UPH D06 

UPH CTM 

FlO DEC 

RCS DEC 
FPDF 

UPH CTM 

FlO DEC 

RCS DEC 

UPH CTM 

FlO DEC 

RCS DEC 
FPDF 

fmpar 

LwH CTM 



LWH 

RCS 

FlO 

LWH 

FOl 

LWH 

OnEND 

LWH O01 



#357 
T8 

DROP 
0-1 

T* 

DROP 

»-l 

T4 

0*3 

0-1 



#377 
#377 



D04 

DEC « 

DROP 

DOl #137 

ODEND 

DOl #357 



#137 



0000000000000000000000000000* 



goto fmchk if fl=l (possible file-mark 

reset fo n rd. clk. 

cntr:=b char, delay 

error case if rd. clk. comes 

in before counter goes to 
goto fhdf to continue next record 
cntp:=<* chara. delay 
error case if any rd. clk. comfs 

in before counter goes to zero 

CNTR: = T<*.0 

LOOK FOR A RD. CLK. 

BEFORE COUNTER=0 
NOISE: GOTO FRDF TO READ NEXT RECORD 
SUB. CALL TO LOOK FOR FILE-MARK 
CNTR!=4 CHAR. DELAY 
RESFT RD. CLK. F/F 
TIME OUT THE COUNTER 
GOTO DROP IF RD. CLK.=1 
SET EOF STATUS 

TERMINATE IF F 1=1 (FILE-MARK CONFIRMED) 
SET TAPE ERROR STATUS 
GOTO ODEND 
SET EOF STATUS 

000000000000000000000000000000000000000000000000000 



• 'ODEND* 


•••000000 

ODEND OTI 
OTI 

•••000000 

SKP 



IT IS A GENERAL EXIT POINT «, RESET VARIOUS F/F'S. • 



00»»»000»»»»»00«»»»«000000000O000«»«»»000«»**00»00»«»»»»*»»«»0»»«»»»»»» 

LwH D06 #137 RST. F1.F2 fe. RD. CLK. 

UPH D12 #157 RESET FO. DATA F/F & EOB FLAG 

»»»»»»0 »•*•••»»•*»»«••«** 00 0000«»0«»«000*00000000»»000»00 00000000000S0 



CO 

o 

en 

> 



as 
o 



56« 
565 
S6f, 
567 
56P 
5bt; 
570 
571 
572 
573 
57*. 
575 
57* 
577 
57R 
57q 
580 
581 
582 
583 
584 
585 
586 

587 

58« 

589 

59; 

591 

592 

593 

594 

595 

59* 

597 

590 

599 

6(j0 

6bl 

6.12 

bV> 

604 

6U5 

6«6 

607 

60« 

6ue 

61 



0204 
0205 
0206 
0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 



0225 
0226 
0227 
0230 
0231 
0232 
0233 



0234 
0235 
0236 
0237 
0240 



11 
11 
00 

11 

oo 

00 
00 
00 
01 

11 

00 
10 

11 
11 

10 
00 
00 



100 
001 
000 
100 
000 

111 

ooo 
111 

010 
100 
010 
110 
001 

111 
no 

Oil 

000 



11 

10 

11 
11 
11 

10 

11 
11 

01 

11 

11 



100 
101 
101 
101 
101 

111 



010 on 

001 110 

001 Oil 

100 010 

000 010 

001 000 
000 010 
000 ooo 

000 010 
110 000 

100 110 

001 in 
001 010 

101 110 
110 on 
000 000 
000 000 



000 
Oil 
110 
001 
001 
001 
001 

ooo 

001 
000 
Oil 
110 
000 
001 

111 

000 
010 



luo 

111 

001 
001 
Oil 
000 
100 
000 
100 
100 
Oil 
000 
Oil 

111 

001 
100 
110 



10 111 110 001 111 111 101 

00 111 010 Oil 000 010 000 

00 111 000 100 110 000 000 

01 010 001 000 010 Oil ooo 
10 001 101 111 Oil 110 000 
00 Oil 111 000 001 101 100 
00 000 111 000 010 000 010 



11 100 100 010 010 000 001 

io ooi ioi in on no ioi 

00 Oil 111 000 010 000 010 

00 111 110 001 000 010 000 

00 000 111 000 010 101 010 



o u 

» STOP ROUTINE IS THF tXIT POINT F OK ALL COMMANDS • 

o ft 



> 



»e»et 

STOP 



x>o»aee 

JFS 
AOR 
JmP 
JFS 
JmP 
OTI 
JmP 
OTI 
JxZ 
STOPl JFS 

loc 

AmI 
XoR 
P9A 

ami 

Jm£ 

JmP 



tf«ft»««»ftO««tt«f 



F15 INT 
CTM R36 
PATCH 
F16 »*2 
» + 3 
UPH 
o*2 
UPH 

Rrs 

F17 

Imp 

LWH 
LuH 
LWH 
LWH 
RCS 
8FG2 



EH GOTO INTER IF INTERRUPT FLAG=1 

R3A ZERO OUT THE COUNTER 

GOTO PATCH TO LOOK FOR END INTERRUPT 
SKIP NEXT If IN-XFFR=1 
SKIP e INSTRUCTIONS 
002 #367 SET DEVRE-END 

*. SKIP NFXT INSTR. 
#377 SET SERV. REU. 

DEC TIMF OUT THE CNTR. 

GOTO WAIT IF NO CONTROL ORDER 
031 GET COMMAND WORD IN R3 

R3B #17 MASK OFF COMMAND CODES IN CNTR 

ROB CTA R2 := RO «XOR» R3 

R3A ho (LOWER) :=R3<NEW COMMAND) 

#6 GO TO WAIT IF NFW CMC IS 

OF DIFFERENT SUb-GROUP 
GOTO BEG? 
»««o<»e«««i>ft«a«««««««<t<>«««ft«««ft««ft«ftftaa*»e««*«e»«*««ofta«e«e«*« 



D20 

ft 

WAIT 

R3I 

CTM 

R2M 

ROM 

R2B 

WAIT 



•FSRF* 



FSR K FSF COMMANDS ARE DECODED HERE. 



FSRF 



PSI UPH CTM T8 



OTI UPH 
OTI L»'H 
JxZ RCS 
Xnl LwH 
JmZ AfiAIN 
JmP ODF.ND 



DEC 
DEC 
DEC 
ROB 



D06 
Oil 

ft 
FSF 



OOftO»«*ft«»Oft*ftftft«»«««»« 

« 

» •PBDEC' - BSR 

» (IF Fl=l THEN A 



•oeoe4*a«oft«*oe«fteftofto« 

RBDEC JFS FOl FILE 

Xol LwH ROB BSR 
JmZ OnEND 
OTI UPH D02 #35 
JmP BSRF 

SkP 



ft»ft«a<>««ett«ft<»««<t«>«*««««ae««aftft«»»«*ft»«»«ft*a««ft«aa»*««»»e 

CNTR:=T8.0 
#357 RESFT FO i. RD. CLK. 

#17/ RST. EOH & SET EVEN HYTF CNT. 

TIME OUT THE COUNTER 
GOTO AGAIN IF CmD. 
IS FSF - ELSE 
GOTO ODF.ND 
e»««ftOft««i»«tf«««ee*tt«»«i>*»ftft4>«ft<t*eftftft«oe*»«0ftft«o»a«e««ea«a 

« 

K BSE COMMANDS ARE DECODED HERE. • 

FILE-MARK HAS BEEN FOUND) » 

ft 
eaoaae««a»ft»oo««««««e«»*a««<t<>«ft***o«««e««>*««ft«a>««««<>ftae 
GOTO FILE IF Flrl 
GOTO ODEND 
IF CMD IS HSR 
? RESFT FO 

GOTO BSRF TO CONTINUF BSF COMMAND 
oe»o(HHtoooftOOftft«ft«»OftOO«oooo«oo«»ftoe»«o»»«o»»«ft«u«ft«»««»« 



611 

61? 

613 

614 

61< 

616 

617 

6l» 

619 

62i) 

621 

622 

623 

624 

62 S 

626 

627 

62« 

629 

63 

63< 

63? 

633 

634 

63S 

636 

637 

639 

639 

640 

641 

64? 

64? 

644 

64^ 

646 

647 

64» 

649 

650 

651 

652 

653 

654 

655 

656 

657 

65« 



0241 
0242 
0243 

0244 

0245 
0246 
0247 
0250 
0251 



0252 
0253 
0254 
0255 
0256 
0257 
0260 
0261 



0262 
0263 
0264 
0265 
0266 
0267 
0270 
0271 
0272 
0273 



11 
11 

10 
00 
01 
00 
10 
00 
01 



100 
100 

111 

000 
110 

111 
111 
111 

010 



100 
101 
110 

111 

HI 
110 
110 
000 
001 



11 
11 
11 

00 

11 

00 
00 
00 



11 

01 
10 
10 

11 

01 
10 

11 

01 
00 



100 
100 
100 
000 
100 
000 

111 

000 



100 
110 

111 
111 

100 
010 

111 

100 
010 
000 



110 
010 
001 
000 
000 
001 
001 
110 
000 



100 
110 
101 

111 

101 

111 

101 

111 



101 

111 

100 
110 
010 
001 

no 

010 
001 

111 



010 
010 
110 
010 
001 
000 
110 
000 
010 



110 
100 
110 
101 
000 
100 
010 
010 
101 



000 
101 
100 
000 
100 
000 
101 
000 
000 



110 
000 
000 
000 

111 

000 
000 
000 



001 
000 
001 
001 
000 
000 
001 
000 
000 
000 



010 
010 
010 
010 

ooo 

010 
000 
000 



000 

111 

101 

111 

101 
010 

111 

101 
010 
010 



no 

110 

101 
101 
000 
101 
000 
000 



010 

111 
no 
111 

001 
110 

111 

000 

111 

101 



000 
010 

no 

010 

no 

010 
000 
100 



100 
000 
010 

no 
on 

110 

110 

111 

001 
010 



00000000000000000000000000000000000000000000000000000000000000000000000000000000 



« RFAD REVERSE GROUPtRSR OP RSF) COMMAND IS INIT1ATEP BELOW. « 

» IF LAST OPERATION WAS A WRITE* ThEN .15 INCH OF TAPE 15 » 

» ERASED BEFORE THE BACKSPACE OPERATION IS PERFORMED. « 

« F0=1 IF WRITE STATUSsl BEFORE BACKSPACING o 



0*0000000000*000000000000000000000000000000000000000000000000000000000000 000000 



RDBKD JFS FC'3 HSRF2 

JFS F05 **3 

P<U UPH CTM TSTRT 

j M p MERGE 

CAL GoFwD 

OTI UPH D02 #337 

RSI UPH CTM TS155 
MERGE OTI LwH DEC D14 »35i 

J/Z RCS DEC «-l 



GOTO BSRF? IF TAPE AT LOAD POINT 
SKIP 2 IF WRITE STATU5=1 
PRESET COUNTER WITH TAPE 

START DELAY 6. GOTO MERGE 
SUB. CALL TO AVOID NOISE IN GAP 
SET FO TO REMtMBER WPT. STATUS WAS 1 
CNTR:=.lb5" ♦ START DELAY 
SET REV..RST. RD. CLK. &EOH F/F 
TIME OUT THE COUNTER 



0000000000000000000000*00 »0000»0000000000000000000000000000000000**«000000**0000 



» «BSRF« - fNTRY TO LOOK FOR 
» WHEN THE TAPE 



0000000000000000000000000 00 

BSRF JFS F03 BSRF2 



JFS F10 

JFS F04 

JMP h<;RF 
JFS F07 
JmP BSRF 
BSRF2 OtI LwH 
JmP WAIT 

**»»*0»00»»**«000000»**00»»* 



BACK 
• ♦2 

FM16 

020 #377 



ROT. READ CLOCK OR ENO-OF -BLOCK < 1600 pPI ONLY) • 
IS GOING IN REVERSE DIRECTION. » 


000000000000000000000000000000000000000000000 000000 

GOTO BSRF? IF BOT=l 
GOTO BACK IF RD. CLK .=1 
SKIP NEXT IF 1600 HP] 
GO RACK TO BSKF 
GOTO FM16 IF EOB FLAG=1 
GO PACK IN LOOP 
SET SERV.REU. S, GOTO 
WAIT FOR NEW COMMAND 

000000000000000000000000000000000000000000000 » 0000*0 



AT 'BACK* ALL THE READ CLOCKS IN A DATA BLOCK ARE ENCOUNTERED 



0000000000000000000000000 00 

BACK JFS F04 BCKRD 
CAL FmPAR 



P*I 


LWH 


CTM 


T22 


Pc;I 


UPH 


CTM 


T4 


JFS 


F10 


DEC 


NOFM 


JXZ 


RCS 


DEC 


0-1 


PCI 


UPH 


CTM 


T4 


JFS 


F10 


DEC 


BCK1 


JXZ 


RCS 


DEC 


0-1 


JmP 


BSRF 







0000000000000000000000000 00 

SkP 



0000000000000000000000000000000000*0000000000 000000 

GOTO BCKRD IF 1600 BPI 

SUB. CALL TO LOOK FOR FM CHARACTFk 

PRESET THE CNTR 

WITH T6.? DELAY 
GOTO NOFM IF KD. CLK. 

CAME BEFORE CNTR = 
PRESET CNTR WITH T4 
GOTO BCKl IF RD. CLK. 

CAME BEFORE CNTR = 
NOISE CHARACTER-GOTO bSRF 

0000000000000000000000000000000000000000000000000O00 



W 
O 



CO 



en 

> 



o 



> 



65Q 


















66 


















661 


















bb-> 


















66^ 


















66<. 


0274 


10 


HI 


110 


001 


no 


110 


100 


66S 


0275 


10 


110 


101 


111 


Oil 


111 


no 


66f- 


0276 


00 


on 


101 


000 


on 


101 


101 


667 


0277 


00 


in 


101 


001 


010 


100 


001 


66R 


03--0 


11 


100 


111 


100 


on 


101 


no 


66<< 


0301 


11 


100 


no 


100 


on 


000 


on 


670 


03«2 


11 


100 


m 


110 


on 


000 


000 


671 


















67? 


















67"? 


















674 


















67^ 


















676 


0303 


00 


m 


100 


000 


100 


000 


010 


677 


















678 


















67M 


















68 


















661 


















66? 


















681 


















68a 


















685 


















686 


















687 


















68« 


0304 


10 


in 


no 


001 


110 


no 


100 


689 


03*5 


00 


m 


000 


100 


001 


000 


000 


690 


0306 


01 


010 


001 


000 


Oil 


000 


110 


691 


0307 


00 


111 


no 


001 


000 


000 


on 


692 


0310 


00 


010 


in 


001 


010 


001 


on 


693 


0311 


10 


no 


m 


111 


111 


101 


111 


694 


0312 


00 


on 


101 


000 


Oil 


001 


000 


695 


0313 


00 


in 


no 


001 


000 


000 


100 


696 


0314 


00 


000 


in 


000 


000 


000 


100 


697 


















69« 



















* o 

« TjOFWD' IS THE ENTRY FOP READ FWD. CMOS. - RDR» RDC. F SR OP FSF . «t 

* » 

RDFWD PM UPH CTM TSTRT CNTR:=START DELAY 

AMI LWH ROB 1 LOOK FOR SUBGROUP OF READ 

JmZ RrS FSRFO FSR-FSF GKOUP-GOTO FSRSO 

KDR1 OTI LWH D22 *13h RST. Fl»F2 d, SET SERV. REQ.fc. IN MOPE 

JFS F16 RUGO GOTO RDGO IF lM-XFER=l 

JFS F12 REJECT REJECT IF OUT-XFER OR 

JFS F17 o-2 CMD=1-0THERWISE STAY IN LOOP 

« « 

* 'REJECT' - ENTRY ONLY WHEN A 'COMMAND-RE JFCT • CONDITION HAS OCCURRED. « 
« a 

«»tSttt*«t««SftS«»4»lttftBftO»»ft«»ftOft«s«la««fi«4tt«fi«St»«»ltt<)t«V«l»l««t>«tatfiB»44ao4<tfl<)l} 

REJECT OTI LWH 001 *37b SET REJECT BIT OF STATUS 

B«««t««fttt«4t»»ttt«ttftft4»ftftBI«4ftft«4«Q»»ft«at4a4««tfifi««»«OI»«ft4l««t««fll>««««fieft«4 4a»l} 

o 

« 'INTER' - ENTRY ONLY IF AN INTERRUPT CONDITION IS DETECTED AT THE « 

» END OF CURRENT COMMAND Op IN IDLE STATE OF THE » 

» CONTROLLER. THL POSSIbLE INTERRUPT CONDITIONS » 

« ARE:l. UMT RFADY INTERRUPT i. TRANSFER ERROR » 

» J. CMO. REJECT 4. BLANK TAPE 5. TIMING « 

» ERROR & 6. TAPE FRROR. • 

« « 

» ft 

«ttoo»o«fte«oo»e«o»o»o«*e»»««ooo»o»»«ooee»»«ft«ft»ftft»»»ft»«fto««»»»«ftft»»o«fto««fto»«ft»ft« 
INTFR P<U UPH CTM TSTOP PRESET CNTR. WITH TAPE STOP DEI AY 

OTI LwH D10 *277 DEC RESET FWD.REV. f, CMD. ENH. 

JxZ PCS » DEC TIMF OUT THE CNTR. 

INT2 OTI UPH D02 »374 CLOCK INTERRUPT t> CLR. «US LOGIC 

IOC UP R3I D22 UPH GET STATUS BYTE IN UPPER R3 

AmI UPH R3B MO IS INT. FLAG=1? 

JmZ RrS «-2 YES» KEEP LOOKING AT THIS BIT 

OTI UPH U02 0373 RESET UNIT INT. F /F 

JvP WAIT NO • GO TO WAIT 

SkP 



699 
7 ; 
7i 1 
7,.? 

7, T 


















«*tt*0««ftttfifrflO«Ofttt«»UO*lHHHHJft«tt 





















entry for write Command • 


















0000000000000000000000000 00000 


7»»4 


0315 


00 


010 


111 


001 


010 


001 


on 


WRFwD 


Inc 


If p 


R3I 022 UPH 


7v c 


0316 


10 


no 


111 


111 


in 


111 


on 




AMI 


UPH 


R3B #4 


7n>6 


0317 


00 


Oil 


101 


000 


on 


000 


on 




Jul 


kcs 


REJECT 


7t,7 


0320 


00 


111 


100 


on 


010 


100 


010 




OTI 


LwH 


006 »13S 


7JP 


0321 


11 


100 


100 


no 


Oil 


010 


on 




JFS 


Fii3 


0*2 


7t, c * 


0322 


00 


111 


100 


OOl 


000 


010 


000 




OTI 


L>'H 


D02 #357 


710 


0323 


10 


no 


101 


in 


on 


111 


no 




Ami 


L «JH 


ROB 1 


711 


0324 


00 


on 


101 


ooo 


on 


on 


m 




JmZ 


PCS 


WJOIN 


71? 


0325 


00 


in 


111 


001 


ooo 


010 


000 




OTI 


UPH 


D22 #357 


713 


0326 


11 


100 


101 


000 


on 


on 


010 




JFS 


F04 


»♦*♦ 


71a 


0327 


10 


001 


101 


111 


Oil 


m 


on 




Xol 


LWH 


ROB WRR 


71 = 


0330 


00 


on 


111 


OOO 


Oil 


on 


010 




JMZ 


0*2 




71* 


0331 


00 


in 


100 


001 


000 


001 


000 




OtI 


LWH 


U02 #367 


717 


0332 


11 


100 


no 


100 


Oil 


on 


no 




JFS 


F12 


0*4 


71R 


0333 


11 


100 


in 


100 


on 


000 


on 




JFS 


F16 


REJECT 


7)9 


0334 


11 


100 


in 


no 


Oil 


on 


010 




JFS 


F17 


0-2 


720 


0335 


00 


000 


in 


000 


Oil 


ooo 


on 




JwR 




REJECT 


721 


0336 


00 


in 


101 


000 


000 


ooo 


ooo 




OTI 


LWH 


D20 #377 


72? 


0337 


10 


in 


110 


001 


no 


100 


100 


WJOIN 


P-U 


UPH 


CTM TWSTP 


723 


0340 


00 


m 


000 


010 


000 


100 


100 


• 


OTI 


LWH 


OEC D04 #333 


72*. 


0341 


01 


010 


001 


000 


on 


100 


ooo 




JvZ 


RCS 


DEC «-l 


72 c 


















««««ftftftOt«»«ft««««tt»tttt4ittt«t«*« 


72ft 



























727 





















at this 


POINT TAPF IS Up 


72A 


















a 


tf 


F0 = 1 


THEN TAPE STAHTI 


729 

73 
731 


















o 


IF F2" 


1 THEN COMMAND I 


















0000000000000 00000000000000000 


73? 


0342 


11 


100 


101 


001 


001 


100 


101 


WRRF.C 


JFS 


F04 


WR16 


733 


0343 


11 


100 


100 


010 


on 


100 


101 




JFS 


F(ll 


0»2 


734 


0344 


01 


110 


111 


000 


OOl 


on 


010 




Cal 


WRAP 




73? 


0345 


00 


111 


100 


on 


000 


100 


000 




OTI 


LWH 


D06 #337 


736 


0346 


10 


no 


101 


in 


on 


111 


no 




Ami 


L'a'H 


ROB 1 


737 


0347 


00 


on 


101 


000 


111 


000 


no 




JmZ 


Rrs 


GPFM 


73fl 


0350 


11 


001 


111 


on 


no 


on 


in 




XoR 


RIM 


R3B R3A 


739 


0351 


11 


001 


111 


001 


no 


on 


in 




XnR 


R?M 


R3B R3A 


74'j 


0352 


11 


010 


110 


101 


010 


001 


m 




PSB 


UPH 


R4M ROB 


741 


0353 


10 


111 


100 


001 


111 


000 


010 




Pel 


LdH 


CTM Tl 


74? 


0354 


00 


000 


on 


ooo 


101 


on 


on 




jmp 




DEC WLOOP 


74 T 


















9»*«a*»o«»»a»«««ft««a««»«o««««« 


744 




















SkP 







- ANY ONE OF wRR» WRZ» WF M oR GAP » 



«ttfi«n»«fiffttfto«»<ti>ft»fr|}»ttftfl»««4ft«««esft«tt«ft««»i}««»oe«« 
GET 797u STATUS IN P3 
REJfCT THE COMMAND IF 

TAPE REEL IS PROTECTED 
RESfT F1,F2,R0, CLK. t> SET OUT MODE 
SKIP NEXT IF TAPE AT LOAD POINT 
SET F 1 (HOT = 0> 
GOTO WJOIN IF 

CMD IS WFM-GAP 
SET SERV. REO. t> RST. FO 
SKIP 3 IF 1600 RPI 
LOOK FOR WRZ COMMAND 
SKlp NEAT IF WRR COMMAND 
WRZ CMD; DISABLE PARITY TRACK 
SKIP 3 IF 0UT-XFER=1 
REJECT THE COMMAND IF 
CONTROL ORDER OR Ifv-XFER 
COMES hEFORt OUT-XFER 
SET SERV. REQ. 

PRESET COUNTER WITH START DELAY 
SET FWO.. WRITE t, RST. RD. CLK. 
T1MF OUT THE COUNTER 
00000000000000000000000000000000000000000000000000 

t> 

TO SPFED «. READY TO DO WRITE OPERATIONS. » 

ED AT ROT. WRITE A 3.75" GAP FIRST. « 

S WfM OR GAP* OTHERWISE WRR OR WRZ. e 



0000000000000000»000000000000000*00000000000000000 

GOTO WR16 IF 1600 HPI 
WRITE A GAP IF 

TAPE WAS AT BOT 
RESET RD CLK 6, Fl 
GOTO GPFM IF 

CMD IS InFM-GAP 
ZERO OUT Rl (WRITE CRC CHARACTER) 
ZERO OUT R?<READ CRC CHARACTER* 
STORE HISTORY OF UNITS IN R4 
CNTR!=1 CHAR. DELAY 
GOTO WLOOP 

00«0»0000#00»«00»00000000000»000»0»0»000000«000000 



o 






CO 

o 



74^ 
74* 
747 
TUP 
749 
750 
751 
75? 
753 
754 
755 
756 
757 
75P 
759 
760 
761 
76? 
763 
764 
765 
766 
767 
76R 
769 
770 
771 
77? 
773 
774 
77=. 
776 
777 
778 
779 
780 
781 
78? 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
830 
8v1 
8i»? 



4»««ftfil(ttt««tttftftft4fi«ltO«»fi«ft»S<)ftft«aftadffft««&«ittftft«ttfrsfl4«««6l)«*«««»»«««t8ft»««440<los4 



IF COMMANn IS FSR OR FSF THEN F2 



1 ELSE F2 



0. 



CJ1 

> 



0355 
0356 
0357 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0410 
0411 
0412 
0413 
04l4 
0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0430 
0431 
0432 
0433 
0434 



00 
00 
01 
11 
00 
10 

11 

01 
00 
01 

11 

01 
10 

11 

10 
00 
01 

11 
11 
11 
11 

01 
00 
00 
00 
10 

11 

00 
00 
10 
00 
01 

11 

00 
00 

11 

00 
00 
00 

11 

00 

11 

00 
00 
00 

11 

01 
00 



111 

111 

010 
100 

000 

111 

100 
010 

111 

110 
100 
110 

111 

100 

in 
111 
no 
111 
111 

001 
100 
010 
000 

111 
in 
111 

100 
000 

in 

110 

on 
no 

100 
010 
010 
100 
000 

111 

000 
100 

m 

100 

111 

000 

in 

100 
010 

000 



100 001 

100 110 
001 000 

ioo no 

111 000 

no ooi 

ioo no 

ooi ooo 

ioo on 

m ooo 

101 ooi 
in ooo 

100 001 

000 100 

100 001 

000 010 

on ooo 

010 101 

010 101 

000 101 
010 000 

001 000 
111 000 
100 010 
100 001 
100 001 

000 100 
on 000 
010 001 

001 111 
001 000 

on ooo 

000 100 

oio on 

ooo on 

000 000 

on 000 

010 001 

on 000 

on 000 

000 000 

Oil 100 

000 001 

on ooo 

Oil 001 

010 000 

001 000 
111 000 



001 

ooo 

Oil 

on 

Oil 
100 

on 
on 

000 
001 
000 

111 

101 
100 
101 
101 

111 

101 
101 
110 
100 
100 
100 

no 

000 
101 
100 
100 
000 

on 

100 

111 

100 
110 
110 
100 
100 
000 
100 
100 
100 
100 

ooi 

100 
010 

on 

100 
100 



000 
101 
101 

110 

no 

000 
110 
110 
100 
001 

on 
111 
no 

000 

no 

000 
010 

111 
111 

001 
000 
000 

oil 

000 
100 
110 
001 
001 
010 

111 

000 
010 

on 

000 

ooo 

010 
010 
010 

on 

010 
001 

on 

000 

on 

000 

111 
on 

101 



001 
000 

111 

010 
101 
101 

on 

100 
000 

on 
111 

000 
010 
001 
010 
000 
001 

111 
on 
111 

100 
001 
101 
000 
000 
010 
001 
100 
000 

no 

001 
001 
010 
010 

on 

010 
100 
000 
001 
110 
000 
001 
000 
010 
000 

on 

010 
001 



• mmmu 

FSRFO on 

RDGO on 

JxZ 

JFS 

Jup 

PM 

JFS 
JxZ 
FRDF OTI 
CAL 
JFS 
CAL 
Psl 

JFS 

LOOPR PS I 

OH 

C«L 

p<;a 
p<;a 

XOR 
LOOP1 JFS 
J<Z 
JHP 
OTI 
OTI 
Pel 
JFS 
JMP 
OTI 

ami 

JmZ 
CaL 
JFS 

Ioc 
loc 

JFS 
JMP 
OTI 
JMP 
JFS 
OTI 
JFS 
OTI 
JmP 
NEXT OTI 
NEXT1 JFS 
JxZ 
JmP 



aoe»eaeeeoeee«a«eeaeee<>otte»ett«»e««a«a»oe«»««aeaee««oo«eoai>e««e0e»»»a»«i> 



002 
014 



**2 



L»H 
LMH 
RCS 
F03 
»*4 
UPH 
F03 

rcs 

LWH 
BLANK 
Fn4 FS16 
FmPAW 
LWH CTM 



#27* 
#327 
DEC 



CTM TGAP 



DEC 
006 



F02 

LWH 
L*H 

R4M 
R4M 
LWH 
F10 
RCS 



OEC 
CTM 
OtC 
DEC 
DEC 
OEC 
DEC 
DEC 
DEC 

OnDEOR 

LwH 005 



#337 



T22 

L00P1 

T22 

005 #277 

RbYTF 

R3A RL4 



RL4 
R3B 



R3A 



LWH 
CTM 

»*2 
o + 4 

UPH 
LWH 
RCS 

F02 
OUT 
OUT 

• ♦2 

• ♦3 
UpH 
NFXT 

• ♦2 
LWH 
F16 
LWH 

UPH 
FlO 
RCS 
EvENOR 



002 
LWH 
DEC 
DEC 
OEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 

DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 



#357 

1 



D02 

ROB 
L00P1 
RBYTF 
NEXT1 
UPH P4I 



LWH 
FOO 



R31 



007 
DOC 



D02 #357 



#367 
#277 



Fl4 

D01 

NEXT 

D02 

NEXT1 

D22 #177 

LOOPP 

•-1 



SKP 



SET F2 & IN-MOOf 

KST. EOH.RO. CLK. 6, SET FWD 

TIMF OUT THE COUNTER 

SKIP NEXT If bOT STATUS=1 

SKIP J INSTRUCTIONS 

CNTR:=1.25" DELAY 

STAY HE^E UNTIL BOT STATUS=0 

TIME OUT 1.2b" nELAY 

RST. RD. CLK. &. F 1 

SUBROUTINF CALL TO BLANK 

GOTO FS16 IF 1600 BP1 

SUB. CALL TO SET Fl IF FM BYTF 

CNTP:=^.^ CHAR. DELAY 

GOTO LOOH IF F2 = 1 

PRESET COUNTER WITH Til.i! 

SET ODD BYTE COUNT & RST. RD. CLK. 

SUb. CALL TO PROCFSS 1 BYTF 

MOVE THE LOWER BYTE 
IN R3 INTO UPPER R4 

ZERO OUT LOW HALF OF R4 

GOTO ODDtOR IF 
CNTR = BEFORE 
A READ CLOCK COMES 

RST. RD. CLK.Ii SET EVEN BYTE CNT. 

RESET Fl 

PRESET COUNTER WITH T2.2 

SKIP NEXT IF F2=l 

SKIP NEXT 3 INSTRUCTIONS 

RESET FO 

GOTO LOOP1 IF 
CMD IS FSP-FSF 

PROCESS THE BYTF 

GOTO NEXT1 IF F2=l 

OUTPUT THE I-bYTE TO DATA-IN REG. 

OUTPUT THE BYTE IN DATA-IN REG. 

SKIP NEXT IF F0=1 

SKIP 2 INSTRUCTIONS 

RESET FO (I WORD) 

GOTO NEXT 

SKIP NEXT IF DATA F/F=l 

SET TIMING ERROR STATUS 

GOTO NEXT IF IN-XFER=1 

SET F2 TO INDICATE WC<REC. LENGTH 

GOTO NExTl 

RST. DATA F/F & SET SERV. REO. 

STAY IN LOOP TILL 
ALL RD CLKS ARE DONE 

GOTO EVENOR 
«t«»<l<lli<itl>«<illi»il<>litt«l»l«<t<»«< •••••••••••#•••»••••••••••••••• 

Fn=l IF EXACTLY ONE CHARACTER READ FROM TAPE « 

Fl=l IF THE CHARACTER READ LOOKS PART OF FILE-MARK (OCTAL 23> • 

F?=l IF THE COMMAND IS FSR OR FSF - OR IN RDRt RDC » 

COMMANO* THE WORD COUNT < RECORD LENGTH * 



R4A 
R4M 
o*3 
»-l 

#177 

#337 

T22 

F02 



8v.3 
8 c 4 
8»>s 
8 f 
8,'7 
8 P 
8 <9 
81 . 
81] 
61? 
813 
814 
81S 
8 If 
817 

Bin 

810 
62 » 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
83A 
839 
84 
841 
842 
843 
844 
845 
846 
847 
84fi 
849 
850 
851 
852 
853 
854 
855 
856 



» to 

« IF CMD. IS F'SR OR FSF THEN ODDEOR IS e 

• FNTERED AFTER THE END OF RECORD. • 

• IF CMD. IS RDR. RDC THEN OODEOR IS « 
« FNTERED ONLY TF ODD NUMBER OF <« 
« CHARACTERS ARE FOUND IN THE « 
» RECORD BLOCt', * 



0435 
0436 
0437 
0440 
0441 
04h2 
0*43 
0444 
0445 
0446 
0447 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0500 
0501 
0502 
0503 
0504 
0505 
0506 



11 

00 

11 

00 
10 
00 
00 
00 
00 

11 

00 
00 
10 

11 

01 

11 

01 
00 
01 
00 
10 
10 
00 
01 

11 

00 
00 
00 

11 

00 
00 

11 

00 
10 
00 
00 
01 

11 

00 

11 

00 
00 



100 
010 
100 

000 
110 

on 
111 
111 

000 
100 

111 

HI 

111 

100 
010 
001 
110 

000 

no 
111 
111 
111 

010 

no 

100 
000 

111 

000 
100 

111 
111 

100 
000 
001 

on 
111 

010 
100 
000 
100 

m 

000 



100 

no 

100 

111 

101 
101 

100 
100 

111 
111 

100 

111 

100 
010 
001 

no 
in 
m 
m 
loo 

100 

no 
no 
in 

100 

m 
loo 
in 
m 

100 
110 

111 
111 

101 
101 
101 

001 
100 

in 
ni 

100 

m 



000 

on 

100 

ooo 
m 

000 
000 
001 
000 
000 
000 

on 

001 
000 
000 

111 

000 
000 
000 
010 
001 
001 

on 

000 
100 
000 
001 
000 
000 
000 
001 
100 
000 

111 

000 
001 
000 
100 

ooo 

000 
000 
000 



001 

no 

100 
100 

on 

010 

no 

ooo 

100 
100 
100 
010 
100 
100 
100 
110 

111 

100 

111 
ooo 

101 

111 

110 

111 

100 
100 
010 
101 
100 
100 
010 
100 
101 
OH 
101 
001 
101 
101 
010 
010 
100 
010 



101 
010 
100 
100 

111 

010 
000 
010 
101 
101 
001 
000 
000 
101 
101 
Oil 

on 

110 
010 

000 
110 

111 

010 

loo 

110 

111 

000 
000 

111 

001 
000 

in 

000 

no 

000 
000 
000 
000 
000 
000 
001 
000 



on 

010 
001 

no 

HO 
101 
000 
000 
001 
000 
000 
000 
000 

111 

010 

111 

001 
001 
101 
000 
010 

no 
on 

001 

111 

001 
000 
001 

on 

000 
000 
110 
001 
001 
001 
000 
001 
100 
010 
010 
000 
010 



«»a»»»«e«»«aeett»tt»««e»»aa0ttotott»oa«toaaaa««aoatooaa»a««»««e»»««toto»tt»>»»e««a»tt»a«e»o 
ODDEOR )F! 

IOC OUT R4I D07 



YCRC 
CRCHK 



JFS 

Jmp 
a^i 

JmZ 
OTI 
OTI 
Jmp 

LREO JFS 
OTI 
OTI 

EVENOR PS 
JFS 
J*Z 
*OP 

cm. 

JmP 
CM 
OTI 

F"5I 

P<U 

loc 
cm 

JFS 
JMP 

OTI 
JmP 
JFS 
OTI 
OTI 
JFS 
JmP 
Xol 
JmZ 
OTI 
CHLRC JxZ 
JFS 
JmP 
JFS 
OTI 
JmP 

SkP 



S F00 FSRO 
OUT W4I 
F02 »*2 
LREO 

LWH ROB 
RCS FSRF 
LWh DO I 
LwH 002 
EVENOR 
F14 «*2 
LWH D01 
UPH D26 

I I WH CTM 
F10 DEC 
RCS DEC 
R3M RJB 
CHITE 
CPCHK 
RRITE 
LWH D04 
LWH CTM 
UPH CTM 
OUT R3I 
CRCCH 
F(\2 °*2 
»*3 

LWH D02 
CHLRC 
F14 o*2 
LWH D01 
UPH D02 
•♦2 F16 
ChLRC 
LwH ROB 



GOTO FSkO If F0=1 

OUTPUT THF FULL WORD TO DATA-IN REG. 

SKIP NExT IF F2=l 



#177 

#357 



#367 

#177 

#377 

YCRC 

•-1 

R3A 



#377 
T22 

T4 
DOT 



#177 



#367 
#177 



RDC 



RCS CHLRC 
LWH D22 #277 
RCS DEC » 
F(l2 «»2 
ODEND 

F14 ODEND 
LWH D01 #367 
ODEND 



GOTO LRFO 
GOTO FSRF If 

FSP-FSF CMD. 
SET EVEN HYTE CNT. 

SET Fl TO INDICATE ODD* OF BYTFS 
GOTO EVENOR 

SKIP NEXT IF DATA F/F-l 
SET TIMING tRROR STATUS 
RST RD.CLK.6i DATA F/MSET SERV.REk. 
CNTR:=4 CHAR. DELAY 
GOTO YCRC IF RD. CLK.=1 

BEFORE COUNTER = 
R3J=0INULL CRC CHARACTER) 
SUB. CALL TO PROCESS RD. CPCC 
GOTO CRCHK 

SUB. CALL TO PROCESS CRCC 
RESET RD. CLK. F/F 
PRESET CNTR. WITH 

6.? CHAR. DELAY 
OUTPUT THE CRCC IN DATA-IN REG. 
SUB. CALL TO VERIFY CRCC 
SKIP NEXT IF F2=l 
SKIP 2 INSTRUCTIONS 
RESET F2 
GOTO CHLRC 

SKIP NExT IF DATA-F/F=1 
SET TIMING ERROR STATUS 
RESET DATA f/f 
SKIP NEXT IF 1N-XFER=1 
GOTO CHlRC 
IF CMD. IS NOT RDC 

THFN GOTO CHLRC 
SET SERV. REO. TO SEND CRCC fc SET F2 
TIMF OUT THE COUNTER 
SKIP NEXT IF F2=l 
GOTO ODEND 

GOTO ODEND IF DATA F/f=l 
SET TIMING ERROR STATUS 
GOTO ODEND 



w 

o 



C7< 

> 



o 



857 


















85« 


















859 


















86 


















861 


















86? 


0507 


11 


100 


100 


010 


101 


001 


001 


863 


0510 


00 


000 


111 


000 


101 


001 


Oil 


86*. 


0511 


01 


no 


111 


000 


111 


111 


000 


865 


0512 


11 


100 


100 


010 


101 


010 


Oil 


866 


















867 


















868 


















869 


















87 


















871 


0513 


11 


001 


110 


001 


110 


Oil 


111 


87? 


051* 


10 


111 


110 


001 


111 


111 


110 


87H 


0515 


00 


111 


000 


on 


000 


100 


000 


87* 


0516 


01 


010 


001 


000 


101 


001 


110 


875 


0517 


00 


111 


100 


on 


000 


000 


000 


876 


0520 


10 


111 


100 


001 


101 


110 


010 


877 


0521 


11 


100 


010 


000 


101 


001 


111 


878 


0522 


01 


010 


001 


000 


101 


010 


001 


879 


0523 


11 


001 


110 


001 


110 


on 


ill 


880 


052* 


10 


111 


110 


001 


111 


100 


010 


881 


0525 


11 


100 


010 


000 


101 


on 


000 


88? 


0526 


01 


010 


001 


000 


101 


010 


101 


883 


0527 


00 


000 


111 


000 


010 


on 


100 


88* 


0530 


00 


111 


100 


on 


000 


100 


000 


885 


0531 


11 


100 


100 


000 


101 


010 


on 


886 


0532 


00 


000 


111 


000 


101 


010 


101 


887 


















88B 


















889 


















89 


















891 


















89? 


















891 


















89* 



















• « 

• at The entry of bcki it is likely that file-mark is found « 

• « 

BCK1 JFS Fol »*2 SKIP NEXT IF K 1=1 

JMP NOFM GOTO NOFM 

CaL FmPAR SUB. CALL TO LOOK FOR FM CHARACTER 

JFS FOl CHGAP GOTO CHGAP IF F 1=1 

o e 

» AT THE ENTRY OF NOFM FILE-MARK IS RULED OUT « 

» o 



> 



NOFM XnR CTM R3B R3A 

Pel UPH CTM T* 

OTI LVh DEC D06 #33 7 

JxZ RCS DEC » 

OTI LWH D06 #377 

P«=I LWH CTM T22 

JFS F10 DEC »-2 

JxZ PCS DEC «-l 

CHGAP XnR CTM R3B R3A 

P^I UPH CTM Tl*5 

JFS F10 DEC »*3 

JxZ PCS DEC »-l 
JmP RpDEC 

OTI LWH 006 #337 

JFS FOO CHGAP 
JMP »-5 



ZERO OUT THE COUNTED 
CNTp:=* CHARACTER DELAY 
RST. RD. CLK. & F 1 
TIMF OUT THE COUNTER 
RESET RO. CLK. 
CNTER:=<!.2 CHARACTER DELAY 
GO BACK 2 IF RD. CLK. 

CAME BEFORE COUNTER = 
ZERO OUT THE COUNTER 
CNTR:=.l*b» DELAY 
SKIP 2 IF RD. CLK. 

CAME BEFORE CNTR = 
GOTO RBDEC TO SEPARATE HSR-BSF CMD. 
RESET RD. CLK. «. Fl 

GOTO CHGAP IF F0=l<wRT. STATUS WAS II 
GO HACK b INSTRUCTIONS 



• o 

• F0=1 IF THE WRITE STATUS WAS 1 BEFORE BACKSPACE STARTED « 

• Fl=l IF THE CHARACTFR READ LOOKS PART OF F ILE-MARK (OCTAL 22) » 
» F? IS NOT USEO IN ThE BSR OR BSF COMMANO * 

« 

00000000#*«0000000000000fl0tt00«000*O00fl000000»0«00«0000«00«00*00«000**0O0»0*0000« 

SeP 



89s 
89ft 
897 


















• »»o«»»«»»m»»»»»in»««»«ii»o»«i»iiO' 


















» 


F0 = 1 


AS LONG AS OUT- 


-XFER: 


89H 


















» 


Fl = l 


IF ATLEAST ONt 


READ 


89Q 


















ft 


F?=l 


IF ATLtAST ONt 


READ 


9-0 
9..1 

9C? 


















» 




WITHIN TWO CHARAC 


















ftoooooftoftooitoooooftoftoooooft nftftooftoo 


9«!3 


0533 


01 


110 


on 


000 


001 


100 


010 


WLOOP CfiL 




oec 


WRChk 




9C4 


0534 


10 


111 


Oil 


101 


100 


001 


001 


Psl 


UpH 


DEC 


POM #366 




9vS 


0535 


11 


100 


010 


ooo 


101 


100 


001 


WLP1 JFS 


FlO 


DEC 


ft + 4 




9(<ft 


0536 


00 


001 


on 


101 


Oil 


111 


no 


Ani 


UPH 


DEC 


ROM ROB 


1 


9v? 


0537 


11 


000 


001 


000 


101 


Oil 


101 


Jrv 


PCS 


DEC 


WLP1 




9ti£ 


0540 


00 


000 


Oil 


000 


101 


100 


101 


Jvp 


ft«5 


DEC 






909 


0541 


01 


110 


Oil 


ooo 


111 


010 


001 


CfL 




DEC 


PBYTF 




910 


0542 


00 


111 


000 


001 


001 


010 


010 


OT1 


LWH 


DEC 


D02 »25b 




911 


0543 


00 


001 


on 


101 


Oil 


111 


010 


Anl 


UPH 


DEC 


POM ROB 


#S 


91? 


0544 


11 


000 


001 


000 


101 


on 


101 


Jov 


wrs 


DEC 


WLP1 




9U 


0545 


00 


010 


010 


001 


no 


000 


001 


IOC 


OUT 


DEC 


UPH P51 


D03 


9U 


0546 


11 


111 


010 


111 


101 


no 


111 


PSA 


fnM 


DEC 


P5A PL4 




91?i 


0547 


11 


111 


010 


111 


101 


111 


111 


PSA 


PlM 


DEC 


R3A Rl.4 




91fe 


0550 


01 


110 


Oil 


000 


111 


loo 


111 


Cj\L 




DEC 


WRCPC 




917 


0551 


01 


010 


001 


000 


101 


101 


001 


JxZ 


pes 


DEC 


o 




91 S 


0552 


00 


111 


110 


000 


000 


100 


000 


OTI 


UPH 


DOO 


#337 




91 9 


0553 


10 


111 


100 


001 


111 


000 


010 


PSI 


Lv'H 


CTM 


Tl 




92 


0554 


10 


111 


Oil 


101 


100 


001 


100 


PSI 


UPH 


DEC 


ROM #36J 




921 


0555 


11 


100 


010 


000 


101 


no 


001 


WLP2 JFS 


no 


DEC 


»*4f 




92? 


0556 


00 


001 


Oil 


101 


on 


111 


no 


Ani 


UPH 


DEC 


ROM ROB 


1 


923 


0557 


11 


000 


001 


000 


101 


101 


101 


Jnv 


PCS 


DEC 


WLP? 




92'. 


0560 


00 


000 


on 


000 


101 


110 


101 


Jmp 


o*5 


DEC 






925 


0561 


01 


no 


on 


000 


111 


010 


001 


CCL 




DEC 


RBYTF 




926 


0562 


00 


111 


000 


001 


001 


010 


010 


OTI 


LWH 


DEC 


D02 #25i> 




927 


0563 


00 


001 


on 


101 


on 


111 


010 


ADI 


UPH 


DEC 


ROM ROB 


#S 


92 P 


0564 


11 


000 


001 


000 


101 


101 


101 


JOV 


PCS 


DEC 


WLP? 




929 


0565 


11 


111 


010 


111 


101 


110 


111 


PSA 


HIM 


DEC 


R5A RL4 




93(i 


0566 


11 


111 


010 


111 


101 


111 


111 


PSA 


RIM 


DEC 


R3A RL4 




931 


0567 


00 


010 


010 


001 


no 


000 


on 


Inc 


OUT 


DEC 


UPH P31 


D03 


932 


0570 


11 


111 


010 


in 


no 


010 


in 


PSA 


RIM 


DEC 


R5A 




933 


0571 


01 


no 


on 


ooo 


111 


100 


m 


CftL 




DEC 


WPCRC 




934 


0572 


01 


010 


001 


000 


101 


111 


010 


JXZ 


PCS 


DEC 


» 




935 


0573 


00 


111 


no 


000 


ooo 


100 


ooo 


OTI 


UPH 


DOO 


#337 




93ft 


0574 


10 


111 


100 


001 


111 


000 


010 


PSI 


LWH 


CTM 


Tl 




937 


0575 


01 


110 


on 


000 


111 


no 


010 


CAL 




DEC 


0D0W1 




93P 


0576 


11 


100 


000 


000 


101 


on 


on 


JFS 


FOO 


DEC 


WLOOP 




939 


0577 


11 


111 


m 


101 


no 


001 


on 


PSA 


UPH 


ROM 


R4A 




940 


0600 


10 


Oil 


101 


101 


001 


111 


m 


lol 


LWH 


POM 


ROH »200 




941 


0691 


10 


001 


001 


010 


100 


101 


ooo 


xnl 


LWH 


DEC 


RlM RIB 


#327 


942 


0602 


11 


010 


010 


110 


101 


111 


m 


PSB 


RIM 


DEC 


RIB RL4 




943 


0603 


11 


111 


010 


111 


101 


111 


in 


PSA 


R3M 


DEC 


P3A RL4 




944 


0604 


00 


010 


010 


001 


no 


000 


on 


IOC 


OUT 


DEC 


UPH R3I 


003 


945 


















«o»o»»»»»»»»»««oinn>»»»»«o»««««ftft«e 


946 


















SkP 











= 1 (DATA WORDS STILL COMING) «. 

CI OCK HAS COME * 

CLOCK IS FOUND « 

TEP SPACING ft 

ft 
ftftftftftfttt«*«ftft»ft»ftft»«ft«ttftft»ftftttttft««»«ft«ftft«ft*ftftftftft 

SUB. CALL TO ASK FOP DATA WORD 

PO I0S7) :=-lu 

SKIP 3 IF RO. CLK.=J 

lNCPtMENT RO 

GOTO WLPi IF NO-OVEPFLOW 

SKIP 4 INSTRUCTIONS 

SUB. CALL TO COMPUTE RD. CRCC i, LRCC 

SET F1.F2 &. OUT MODE 

UPDATE RU RY b 

GOTO WLPI IF NO-OVEPFLOW 

OUTPUT THE WRITF MYTF 

SWOP UPPER *. LOWER 
HA| VES OF P5 IN R3 

SUB. CALL TO COMPUTE WRITE CRCC 

TIME OUT THE COUNTER 

SET WRITE STPOBF 

CNTP:=1 CHAR. OELAY 

R010S71 :=-13 

SKIP 3 IF RD. CLK.=1 

INCREMENT RO BY 1 

GOTO WLP? IF NO-OVERFLOW 

SKIP 4 INSTRUCTIONS 

SUB. CALL TO COMPUTE RD. CRCC K LRCC 

SET Fl.F? i, OUT MODE 

UPDATE RO PY b 

GOTO WLP? IF NO-OVERFLOW 

SWOP UPPER i LOWER 
BYTES OF PS IN P3 

OUTPUT WWT. BYTE 

PASS R5 IN R3 

SUB. CALL TO COMPUTE WRT. CRCC 

TIMF OUT THE COUNTER 

SET WRITE STROBE 

CNTR:=1 CHAR. DFLAY 

SUB. CALL TO FIND OUT CHAR. DROPOUT 

GOTO WLOOP IF F0=1 

MAKE PO BACK TO WHAT IT WAS 

SET BIT H IN RO TO INDICATE CRCC BYTE 

UPDATE CPC CHARACTER 

OUTPUT 
CRC 

character 

0«ft«OBO««ftOO»0«»00»0»0»00»»««0»»OOOU»»»««»ft«»« 



o 



> 



to 

o 


94 7 
9<»£ 


















00000400000000004000000400000 

























IF F0 = t. 


R0<~: 


!l>=l 




95 


















« 




IF F0 = t> 


R0(f ! 


ll)=t 




951 


















it 












9b- 


















00000000000000000000000040000. 




953 


06O5 


10 


111 


100 


001 


101 


111 


m 


OTCRC 


RSI 


LwH CTM 


#200 






954 


0606 


10 


111 


on 


Oil 


100 


loo 


in 




(■"^I 


UPH UtC 


RlM 


#330 




955 


0607 


11 


100 


010 


000 


110 


001 


on 


OTC1 


JFS 


F10 DEC 


044 






956 


0610 


00 


001 


on 


010 


111 


111 


110 




Al>I 


UPH DEC 


RlM 


RIB 




957 


0611 


11 


000 


001 


000 


no 


000 


in 




Jov 


PCS DEC 


OTC1 






95' 


061? 


00 


000 


on 


000 


no 


001 


m 




Jf-'P 


"♦5 DEC 








959 


0613 


01 


110 


011 


000 


111 


010 


001 




CfL 


DEC 


RBYTF 






96 


0614 


00 


111 


000 


001 


001 


010 


010 




OTI 


LWh DEC 


D02 


#255 




961 


0615 


00 


001 


on 


010 


111 


111 


010 




API 


UPH DEC 


RlM 


Rib 




96? 


0616 


11 


000 


001 


000 


110 


000 


111 




JCV 


PCS DEC 


OTC1 






963 


0617 


00 


111 


010 


001 


000 


no 


000 




OTI 


UPH DEC 


002 


#317 




964 


0620 


01 


010 


001 


000 


no 


010 


000 




J*Z 


RCS DEC 









96^ 


0621 


01 


110 


111 


000 


111 


110 


010 




CJL 


ODDWl 








966 


0622 


10 


110 


101 


111 


001 


111 


111 




a^i 


LWH ROB 


#200 






967 


0623 


00 


011 


111 


000 


no 


on 


000 




Jf.'Z 


0TC2 








96a 


0624 


11 


100 


100 


000 


110 


000 


101 




JFS 


FOO UTCRC 






969 


U625 


10 


110 


101 


101 


010 


000 


000 




Ami 


LWH ROM 


ROB 


n\Tf 




97 o 


0626 


00 


HI 


110 


000 


000 


100 


000 




OtI 


UPH DOO 


#337 






971 


0627 


00 


000 


111 


000 


no 


000 


101 




Jwp 


OTCRC 








97? 


0630 


11 


100 


100 


000 


110 


000 


101 


0TC2 


JFS 


FOO OTCRC 






973 


0631 


00 


111 


100 


001 


010 


000 


000 




OTI 


LWH QU2 


#177 






974 


0632 


00 


111 


no 


000 


000 


010 


000 


LRCQ 


OTI 


UPH 000 


#357 






97S 


0633 


00 


111 


100 


001 


000 


000 


101 




OTI 


LWH D02 


#37? 






976 


0634 


11 


100 


100 


010 


no 


110 


100 




JFS 


Fpl YESRO 






977 


0635 


10 


111 


no 


001 


m 


100 


000 


NORD 


PsI 


UPH CTM 


T15S 






97B 


0636 


11 


100 


010 


000 


no 


100 


001 




JFS 


F10 DEC 


0*3 






979 


0637 


01 


010 


001 


000 


no 


on 


no 




JxZ 


PCS DEC 


0-1 






980 


0640 


00 


000 


in 


000 


001 


111 


111 




Jtxp 


DROP 








961 


06h1 


01 


110 


m 


000 


m 


111 


000 




CfiL 


FmPAR 








98? 


0642 


01 


no 


m 


000 


in 


010 


001 




CAL 


RP.YTE 








983 


0643 


11 


001 


no 


001 


110 


Oil 


111 




xr-R 


CTM R3b 


R3A 






984 


0644 


11 


100 


100 


100 


no 


100 


no 




JFS 


FP2 o*2 








985 


0645 


00 


000 


111 


000 


no 


110 


100 




Jkp 


YFSRO 








986 


0646 


11 


100 


100 


010 


no 


101 


000 




JFS 


FOl °*2 








987 


0647 


00 


000 


111 


000 


001 


111 


111 




Jf.p 


DPOP 








98P 


0650 


10 


111 


no 


001 


111 


111 


101 




Psl 


UPH CTM 


T8 






989 


0651 


10 


111 


100 


001 


101 


no 


010 




P^I 


L'-'H CTM 


T22 






993 


0652 


11 


100 


010 


000 


110 


101 


101 




JFS 


F10 DEC 


"♦3 






991 


0653 


01 


010 


001 


000 


no 


101 


010 




JXZ 


RCS DEC 


0-1 






99? 


0654 


00 


000 


111 


000 


001 


111 


111 




JmP 


DPOP 








993 


0655 


01 


no 


111 


000 


111 


111 


000 




CAL 


FmPAR 








994 


0656 


11 


100 


100 


010 


no 


no 


000 




JFS 


Fill «♦? 








99S 


0657 


00 


000 


111 


000 


001 


in 


111 




JmP 


DPOP 








996 


0660 


10 


111 


no 


001 


111 


in 


101 




Pel 


UPH CTM 


T8 






997 


0661 


11 


100 


010 


000 


001 


in 


111 




JFS 


F10 DEC 


DROP 






99B 


0662 


01 


010 


001 


000 


110 


no 


001 




J<Z 


RCS OEC 


0-1 






999 


0663 


00 


000 


111 


000 


010 


000 


001 




jMp 


FILE 








lOoo 


















0000000000000000000000000 




10„l 




















S-P 









CO 

o 



> 



THEM IT IS TIME To WRITE CRCC o 

THEN IT IS TIME To WRITE L RCC » 

4 

0000000000000000000000000000 0040040000000000000 0000 

CNTR:=2.0 CHAR. DELAY 

Rl <o:7) :=-40 

SKIP 3 IF RD. CLK.rl 
1 INCREMENT PI 

GOTO OTC1 IF NO-OVERFLOW 

SKIP 4 INSTRUCTIONS 

SUB. CALL TO COMPUTF RD. CRCC *. LRCC 

SET F1.F2 t. OUT MODE 
#5 UPDATE Rl BY 5 

GOTO OTC1 IF NO-OVERFLOW 

TOGGLE FO 

TIME OUT THE COUNTER 

SUB. CALL TO DETECT CHARACTER DROPOUT 

LOOK FOR hlT H OF RO 

GOTO OTC2 IF RO (B)=0 

GOTO OTCRC IF F0=1 

MAKF BIT 8 OF RO = 

SET WRITE STROBF (TO WRITE CRCC) 

uOTO OTCRC 

GOTO OTCRC IF F0=1 

RESFT F? 

SET WRITE RESET PULSF 

ENABLE PARITY &, SET IN-MODE 

GOTO YESRD IF F 1=1 

CNTR:=.155" DELAY 

SKIP 2 IF RD. CLK.rl 
BEFORE CMTR=0 

CHAR. DROPOUT-GO TO DROP 

SUB. CALL TO LOOK FOR FM BYTE 

SUB. CALL TO COMPUTE RO. CRCC 

ZERO OUT THE COUNTER 

SKIP NEXT IF F?=1(WFM CMD.) 

GOTO YESRD 

SKIP NEXT IF F 1=1 

GOTO DROP 

CNTR:= 

10.2 char, delay 
skip 2 if rd. clk. = 1 

before cmtr 
char. oropout case-goto drop 
sub. call to look for fm byte 

SKIP NEXT IF Fl=l 
FM DOES NOT MATCH-GOTO DROP 
CNTR:=«.0 CHAR. DELAY 
GOTO DROP IF RO. CLK.=1 

BEFORE CMTR=0 
GOTO FILEIFM CONFIRMFD) 

O000000O00000400040O000400000440440000O040000000000 



10t? 
10«3 
10»4 
10<"? 
10J* 
10y7 
10»V« 
10«I9 
10«O 
1011 
101? 

iom 

10)4 
1015 
1016 
1017 
lOJfl 
1019 
1020 
1021 
102? 
1023 
1024 
102b 
102* 
1027 
102« 
102-i 

1030 
1031 
1032 
1033 
1034 
103S 
1036 
1037 
1038 
1039 
1040 
1041 
104? 
1043 



ftft44«ftAlt««ft««»«««««0ft0l>O04a*««ftOI}««««»»«»»f«»ftft»ft«44S4»tfiltI)41l««0«tt&ttD««»»a»a««l»« 



Er>T 



RY AT YESRD ONLY IF 
DURING THE WRIT 



A READ CLOCK IS ENCOUNTERED 
1NG OF A DATA BLOCK 



0664 
0665 
0666 
0667 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0700 
0701 
0702 
0703 
0704 
0705 



0706 
0707 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0720 



10 
11 
01 
00 
01 
00 
10 

11 

01 
00 
01 
10 

11 

01 
01 
10 
01 
00 



10 
00 
01 
00 
00 
10 
00 
01 
00 
00 
00 



111 

100 
010 
000 
110 
000 

111 

100 
010 
000 

no 
111 

100 
010 

no 
111 

010 
000 



001 

on 
no 

000 

111 

111 
111 

010 

111 
111 

000 



100 
010 
001 

111 
111 
111 

100 
010 
001 

111 
111 

100 
010 
001 

111 

no 

001 

111 



101 
101 

111 
111 
no 
no 
no 

001 

no 

100 

in 



001 

ooo 
ooo 
ooo 

000 
000 
001 

coo 

000 
000 
000 
001 
000 
000 
000 
001 
000 
000 



111 

000 
000 
000 
001 
001 
000 
000 
001 
001 
000 



101 
110 

no 
no 
111 

110 
100 
110 

no 
ooi 
111 

101 

001 

111 
111 
111 
111 

010 



Oil 

111 

001 

010 

111 
111 

000 

111 

000 
001 

no 



110 

111 

110 

111 

010 
110 
000 

111 
111 
111 

010 

no 
in 
ooo 
loo 
in 
ooo 

00 



111 

ooi 
on 

000 
101 

111 

100 
001 
100 
000 

on 



010 
000 
101 
010 
001 
100 
000 
110 

on 
in 

001 
010 

111 

000 
001 
110 
100 
010 



010 
010 
010 
010 
100 
101 
000 
101 
000 
000 
010 



400444444 
YESRD PSI 
JFS 
JxZ 
J"P 
CfL 
JvP 

JFS 

JxZ 
JuP 
Cf,L 
PM 
JFS 
JxZ 
CuL 
P^I 
JxZ 
JmP 
444444444 



•tt»«»tttt«tt««»«aB«att»a«»a»oaa«»«»a»««e«e«e»e«eatt««»«»«««»»»»e»»#a«a««tt««tt 



I l.i H 
F 10 

RCS 
4*3 

RRYTE 

YFSRD 

LWH 

F10 

PCS 

DROP 

RPYTt 

Li-'h 

F10 

RCS 

CoCCH 

UPH 

RCS 

ODEND 



CTM T22 
DEC »»3 
DEC 4-1 



CTM 
DEC 
DEC 



#377 

0*3 

4-1 



CTM T22 

DEC DROP 

DEC »-l 

CTM T4 

DEC » 



CNTP:=2.2 CHAR. DfclAY 
SKIP 2 IF RD. CLK.=1 

BEFORE CNTR = 
SKIP ? INSTRUCTIONS 
SUB. CALL TO COMPUTE RD. CRCC 
00 BACK TO YESRD 
CNTRS=4.0 CHAR. DELAY 
SKIP 2 l^ RD. CLK.=1 

HEI-ORE CMTR = 
CRCC=0» GOTO UPOPICHAR. DROPOUT) 
SUB. CALL TO COMPUTt CRCC 
CNTP:=2.2 CHAR. DELAY 
GOTO DROP IF RD. CLK.=1 

BEFORE CNTR. = 
SUB. CALL TO VERIFY RfcAO CRCC 

cntr:=4 char, delay 
timf out the counter 
goto ooend 



tt«tt««««ft<l««»ft»««»««»»««««tt««ttfttt««»4««««««««tt<>»«4ttft«««f««ft««ft«fttttt«o«ft««1l 



Entry at gpfm only if «fm or gap command 



444444444 

GPFM Xnl 
JmZ 
CAL 
JmP 
OtI 
Psi 
OTI 
JXZ 
OTI 
OTI 
JmP 

444444444 

SkP 



44444444444444444444 

LWH ROB GAP 

RCS 4*3 

WGAP 

OOEND 

UPH D03 



UPH 
UPH 
RCS 
UPH 
LWH 
LOCO 



CTM 
OOO 
OEC 
002 
002 



444444444444444444444444444444444444444444444444444 

LOOK FOR GAP COMMAND 

SKIP 2 IF WFM COMMAND 

WRITE. A GAP OF 3.75 INCH 

FO TO ODEND 
FM OUTPUT THE FILE-MARK CHARACTER 

TB PRESET THE CNTR WITH T8.0 DELAY 

#337 SET WRITE STROBE 

4 TIMF OUT THE COUNTER 

#337 SET FO 

#277 SET F2 TO INDICATE WFM CMD. 

GOTO LRCO 



44444404444444444444444404444444444444004444444444444444444000444044444 



CO 

o 



to 



> 






o 



1044 
104R 
10*iS 
1C47 
104« 
10w 
1050 
1051 
1052 
105? 
1054 
1055 
1056 
1057 
105* 
1059 
1060 
1061 
106? 
1063 
1064 
106^ 
1066 
1067 
106R 
1069 
1070 
1071 
107? 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
108? 



0721 
0722 
0723 
0724 
0725 
0726 
0727 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0740 



0741 
0742 
0743 
0744 
0745 
0746 



00 
00 
11 
00 
00 
10 

11 

11 
11 
11 

10 
10 
10 
01 

11 

00 



111 
111 

100 

111 

010 

111 

100 
001 
001 
010 
100 

111 

001 
101 
001 

000 



10 
10 

11 

00 
00 
01 



ooo ooi 

000 010 

010 010 

000 000 

000 101 
010 in 

001 100 

010 111 

on ooo 

Oil 000 

Oil 000 

011 001 
001 000 

on in 

011 001 

011 000 



001 
001 
010 

on 
111 

101 



101 

111 
in 
111 

100 

m 



000 
000 
000 
000 
000 

111 



000 

ooo 
111 

100 
010 

111 
111 
no 

001 
010 

111 

HI 
Oil 

111 
no 

111 



000 
000 
010 
010 
001 

111 
on 

001 

on 
on 
on 
111 

000 

111 

001 

on 



001 
000 
101 
000 
Oil 

no 

001 

111 
111 
111 
111 
no 
on 
m 
in 
no 



ooo 
on 
oio 
in 

100 

111 



101 

111 
on 

100 
010 

111 



000 

no 
in 

no 
ooo 
m 



4 o 

• SUBROUTINE RBYTE TAKES THE REAO CHARACTER IN LOW HALF • 

• OF R34 CHECKS PARITY i, COMPUTES READ-CRCC IN R2 e 



> 



44444 
RBYTE 



R8ITE 
WBITE 



4«444 

OTI 
OTI 
Jf"S 
OTI 
IOC 

PsI 

JFS 

Xr>R 

CBITE XoR 

p<;b 

PSI 

AOI 
RTN 
XnR 
JmP 
4444444444 



44444 

LwH 
LWH 
Fll 

LWH 

Imp 

UPH 
Ff)6 
UPH 
R?M 
R?M 
a*4 
UPH 
LWH 

UPH 
o-? 

44444 



44444 

DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 
DEC 

44444 



444444440444444444444444444444444444444444444444444444444444 

DO? #376 
•37/ 



D04 

4*2 

D01 
LWH 
R3M 

4*2 

R3M 
R2B 
R2B 



• 357 

R3I 012 
1 



R3B 
R3A 



R3A 
RR1 



R2M 1 

R2M R2B #74 

R?M R3B R3A 



SET IN-MODE F/F 

RESET RD. CLK. F/F 

SKIP NEXT IF PARITY OKAY 

SET TAPE ERROR BIT 

GET READ BYTE IN R3 

R31A) :=l 

SKIP NEXT IF READ PARITY = 1 

ZERO OUT UPPER HALF OF R3 

CRCR:=(CRCR 'XOR 1 R3) ROTATED PT. 1 

LOOK FOR SIGN OF R2 

SKIP 3 IF SIGN = 

MODIFY CRCR-PIT SIGN IN BIT 7 OF R2 

INVERT BITS 10-13 OF R? 

SUBROUTINE RETURN 

ZERO OUT UPPER HALF OF R2 

GO HACK 2 INSTRUCTIONS 



444441444444444444444444444444444444444444444444444444444444 



» SUBROUTINE CRCCH CHECKS THE READ CRC CHARACTER 

4 AGAINST THE COMPUTED CRCCUN R2) . IF THE 

4 TWO DO NOT MATCH, THEN TAPE ERROR F/F 

4 IS SET. THIS IS CALLED BOTH IN 

4 THE WRITE 4 RtAD MOOES. 

4 
444444444444444444444444444444444444444444444444444444444444444444444444441 

CRCCH Xnl LWH R2M R28 #327 UPDATE FINAL 

Xcl UPH R2M R2B #l CRC CHARACTER 

pqy r ?m R2B R2 SHOULD BE FOR GOOD DATA BLOCK 

2 SKIP NEXT IF CRCC CHFCKS OUT 



OTI LWH 
RTN 



D01 #357 



SET TAPE ERROR BIT 
SUBROUTINE RETURN 



14444444444444444444444444444444444444444444444444444444444444444444441 

SkP 



1G8T 
108a 
108^ 
108^ 
1087 
10PR 
1089 
1090 
1091 
1092 
109-5 
1094 
1095 
1096 
109? 
109H 
1099 
1100 
llitl 
llu? 
1U'3 

ii»'. 
n us 

lljr- 

11 07 

11V 

1109 

mo 
mi 
m? 

1113 

1114 

111= 
lllf^ 

1117 
111* 
1119 
112i 
1121 
112? 
1123 

1124 

1125 
112* 
1127 
1128 
1129 
1130 
1131 
1133 



0747 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 
0760 
0761 



0763 
0764 
0765 
0766 
0767 



0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 



11 
11 
10 
11 
11 
10 
10 
10 
01 

11 

00 



001 
100 

111 

001 
010 
100 

111 

001 
101 
001 
000 



10 
01 
10 

11 
11 
11 
11 

01 

11 
11 
11 



111 

100 

111 

010 
010 
000 
Oil 
010 

111 
on 

000 



110 

111 
111 

101 

no 
111 
111 
111 
111 

110 

111 



001 
101 

111 
on 
on 

110 

111 

000 

111 

001 
101 



111 

010 

no 
111 
111 

000 

no 
on 
m 
m 
m 
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Oil 
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on 
ooo 
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ooo 
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001 
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111 



111 
111 
on 

010 

111 



110 
110 

111 

000 

111 



111 
no 

100 

ooo 
m 



00 

oo 
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10 
00 
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00 
01 



111 

010 
100 
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on 
in 
m 

101 



100 
100 
101 
101 
101 
100 
100 

111 



on 

101 
100 

in 

000 
001 
000 

111 



000 
010 

111 
111 
111 
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100 

111 
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111 
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111 

010 
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no 

100 

no 
ooo 

001 

in 



o o 

» subroutinf wrcrc computes the crc • 

» character for the white data o 

« block s. storf it in pi. » 



WRCRC 



WRCP1 



XnR 

JFS 
PSI 

XoR 
H?fl 
J^7 
PSl 
XOI 
RTN 
XnR 
JmP 
0000 



000000 

ODDwl 



000000 



0000000000000000ft 000000000000 

UPH DEC R3M R3B R3A 

F06 DEC **2 

UPH DEC R3M 1 

RIM DEC RIB R3A RRl 

RIM DEC RlH 

0*4 DEC 

UPH DEC RIM 1 

LWH DEC KIM Rib *74 

DEC 

UPH DEC RIM R3B R3A 
0-2 DEC 
00000000000000000000000000000 

SUBROUTINE ODDwl CHECKS 
MORE CHARACTER DROPOUTS 
DURING Wilt MODE. IT 
FOR F? = l If Fl WAS 1. 

»««ft««ttft»«ttfflf««4fttl«a»4«»fttt»4«t« 

JFS FOl DEC «*2 

j M p + 4 DEC 

JFS F(l2 DEC »*2 

JmP DEC PTCH3 

OtI LwH DEC D02 #177 

rtn dec 

»oo»00*»«0»o»o90ee«tnt0»tt000#oflo0» 



00000000000000000000000000000000000 000000 
ZERO OUT UPPER HALF Of R3 

skip next if write parity = o 

APPFND PARITY IN BIT 7 OF R3 

CRCR:=(CRCR 'XOR* R3) ROTATED PT. I 

LOOK FOR SIGN OF Rl 

SKIP 3 IF SIGN=0 

MODIFY CRCR-PUT SIGN IN HIT 7 Of Rl 

INVFRT HITS 10-13 OF Rl 

SUBROUTINE RETURN 

ZERO OUT UPPER HALF OF Rl 

60 HACK 2 INSTRUCTIONS 

00000000000000000000000000000000000000000 

FOR TWO OR * 

ON TARE « 

LOOKS « 



00000000000000000000000000000000000*00000 

skip next if i-char. flag=i 
no character yet-go hack 
skip next if ii-char. ft ag=1 

CHAR. DROPOUT CASE GOTO pnrin .PTCH3 
RESET F2 (II-CHAR. Fl AG) 
SUbROUTlNE RETURN 

00000000000000000000000000*0000000 0' 0000*0 



000000 

FMPAR 



SUBROUTINF FMPaR SETS Fl IF THE « 

CHARACTER READ (IN LOW HALF OF * 

R3) LOOKS LIKE PART OF FILF- » 

MARK (OCTAL 23) IN 800 BPI. « 


0000000 0O000000000<»0000000«00«00000»0000000O0»0000000««»0000000000 00»00« 



RESFT Fl t. RD. CLK. F/F 
GET READ BYTE IN R3 
RETURN If PARITY = 1 
SET Fl IF 
THE READ BYTE 
IS A FILF MARK 
RST STATUS IF NOISE ON TAPE 
SUBROUTINE RETURN 



OTI LWH D06 #337 

IOC ImP' LWH R3I D12 

JFS 0*4 F06 

Xnl LnH R3B FM 

Jf-7 RCS »*2 

OTI LWH D02 »357 

OTI LWH D01 #376 

RTN 

»0O0O000«0000«00000000000000000000000000000000*0*00»0000»0*000**00»0*00*000 

SkP 
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CO 
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113* 


















1137 


















113B 


1000 


00 


111 


100 


101 


000 


100 


000 


113Q 


1001 


00 


010 
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001 


010 


001 


Oil 


1140 


1002 


10 


110 


111 


111 


no 


111 


111 


1141 


1003 


00 


Oil 


101 


001 


000 


000 


101 


114? 


1004 


00 


111 


100 


001 


000 


010 


000 


1143 


1005 


01 


101 


111 


111 


111 


HI 


111 


1144 


















1145 


1006 


01 


110 


111 


001 


000 


000 


000 


1146 


10u7 


00 


000 


111 


001 


000 


011 


010 


1147 


















1 14P 


















1140 


















lib-. 


















1151 


















115? 


















1153 


1010 


00 


010 


HI 


001 


010 


001 


on 


1154 


1011 


10 


110 


111 


111 


111 


oil 


111 


115S 


101? 


00 


on 


101 


001 


000 


001 


100 


1156 


1013 


00 


111 


100 


000 


100 


010 


000 


1157 


1014 


01 


101 


111 


111 


111 


in 


111 


115* 


















115Q 


















116' 


















1161 


















116? 


















1163 


















1164 


1015 


11 


001 


010 


010 


no 


000 


111 


1165 


1016 


11 


100 


000 


101 


000 


010 


000 


1166 


1017 


00 


111 


000 


000 


000 


000 


on 


1167 


1020 


00 


010 


010 


001 


110 


000 


001 


1168 


1021 


01 


010 


001 


001 


000 


010 


001 


1160 


1022 


00 


111 


110 


000 


000 


100 


000 


1170 


1023 


01 


101 


HI 


111 


111 


111 


111 


1171 


















117? 


















1173 


















1174 


















117S 


















1176 


1024 


11 


100 


101 


111 


000 


011 


001 


1177 


1025 


11 


100 


no 


001 


000 


010 


111 


U7P 


1026 


00 


000 


111 


001 


000 


010 


100 


1179 


1027 


00 


111 


100 


011 


000 


000 


000 


1160 


1030 


00 


000 


111 


001 


000 


010 


100 


1181 


1031 


00 


HI 


100 


001 


000 


100 


000 


118? 


1032 


11 


001 


110 


001 


no 


011 


HI 


1183 


1033 


10 


111 


110 


001 


111 


100 


010 


118a 


1034 


00 


111 


000 


100 


000 


000 


000 


1185 


1035 


01 


010 


001 


ooi 


000 


011 


101 


1186 


1036 


00 


000 


111 


000 


010 


Oil 


loo 


1187 


















118P 





















» FMPlb SETS Fl IF FILE-MARK IS FOUNDI1600 BPI). « 

* o 
*00000000000000000000000000000O0 00 00 00 000000000000000000000000000000000000000000 

FMP16 OTI L.JH 012 #337 RESET H 6, EOB FLAG 

InC IMP R3I D22 UPH GET STATUS BYTE IN K3 

Ak>I UPH R3B #100 LOOK FOP TAPE MARK BIT 

Jw? RCS 6*2 SKIP NEXT IF TAPt MARK HIT = 

OTI LWH D02 #357 SET Fl TO INDICATE TAPE MARK 

RTN SUBROUTINE RETURN 

FM16 CaL FMP16 SUB. CALL TO LOOK FOR TAPE MARK 

JMP HCK2 GOTO BCK? 

000000*0000000000000000000000000000000000000000000000000000000000000000000000000 

« a 

• SUBROUTINE ERR16 SETS TAPE ERROR F/F IF AN ERROR » 
» IS DISCOVERED BY THE TAPE DRIVE (1600 BPI ONLY). o 
o c 

00000000000000000000000000000000000000000000000000000000000000000000000000000000 

ERR16 IOC ImP UPH R3I D22 GET STATUS BYTE IN R3 

AMI UPH R3B #40 LOOK FOR TAPE ERROR 

J>«Z PfS »*2 SKIP NEXT IF TAPE ERROR=0 

OTI LhH D01 #357 SET TAPE FRROR BIT OF STATUS 

RTN SUBROUTINE RETURN 

0000000000000a0000000000«0000000000000000000000000000000000000000000000000«0*000 



» SUBROUTINES WKTP1 *. WRTP3 ARE CALLED TO OUTPUT » 

» THE WRITE BYTF «, SET WRITE STROBEU600 PPII « 



00000000000000000000000000000000000000000000000000000000000000*00000000000000000 

WRTP1 XOR UPH DEC R5M R5A RIB fib (UPPER ): sRS »XOR« Rl 

WRTPE JFS •♦? OEC F02 SKIP NEXT IF F2-llwFM> 

WRTP3 OTI LwH DEC 000 #374 TOGGLE OOD/EVEN F/F 

IOC OUT DEC UPH R5I D03 OUTPUT THE BYTE FROM R5 

JxZ RCS DEC « TIME OUT THE COUNTER 

OTI UPH 000 #33? SET WRITE STROBF 

RTN SUBROUTINE RETURN 

0*000*0000000000000000000000000000000*0*0*000000000000000000*0*00000000000000000 

O 

« BCKRO IS THE READ REV. 1600 BPI ROUTINE <F0=1 IF WRT. STATUS WAS 1) • 



»«0000000*00000000000000000000000*0*000000»0*0*00«*0»0***000000*000000000000O0O« 

BCKPD JFS F07 *«5 SKIP 4 IF EOB=l 

JFS F10 «*2 SKIP NEXT IF WO. CLK.=1 

JmP BCKRD GOTO BCKRD 

OTI LWH D06 #377 RESET RD. CLK. F/F 

JmP BCKRD GO BACK TO BCKRD 

OTI LWH 002 #337 RESET Fl 

BCK? XnR CTM R3B R3A ZERO OUT THE COUNTER 

PM UPH CTM T14S CNTp:=.14b IN. DELAY 

OTI LrfH DEC D10 #377 RESET EOB FLAG 

JxZ RCS OEC « TIME OUT THE COUNTER 

JmP RrDEC GOTO RBDEC 

*»»»««*«»**e*»**»****e«0««*»*0*««*»*»0***»*****»»«»*»»»«««**»0»»»*»«»*»»»»**»»«« 
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• FS16 IS THE 


1600 


BPI READ 
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CftL 
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FILE 
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119P 1 


045 


00 
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110 
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JMP 


FRDF 








1199 


046 
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110 
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001 
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RD166 
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EoCHK 






12. ti 
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LWH 
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OTI 


LWH 


005 
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LP16 


JFS 


Fo7 
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LP16 
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1224 


077 


11 


100 


01 


111 


ooi 
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1227 ] 
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Tl 




123n 


1115 


11 


100 


111 


001 


001 


001 


111 




JFS 


F14 


"♦2 
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000 


100 


001 


000 




OTI 


LWH 


1)01 


#367 




124-) 


1117 


00 


111 


111 


001 


010 


000 


000 




OTI 


UPH 


D22 


#177 




12*1 


1120 


01 


010 


301 


ooi 


001 


010 


000 




JxZ 


PCS 


OEC 


o 




124? 


1121 


11 


100 


HI 


001 


001 


010 


on 




JFS 


F14 


»*2 






1243 


1122 


00 


111 


100 


000 


100 


001 


000 




OTI 


LwH 


1)01 


#367 




1244 


1123 


00 


000 


in 


ooo 


010 


000 


010 




JmP 


OOEND 






1245 


















»Ott«Dtfftoftlftft*ft*«tt«»«ft«0««ftt«» 


124^ 




















SkP 











GOTO RD166 IF F0=1 

SUB. CALL TO LOOK FOR TAPE ERPO* 

SUb. CALL TO LOOK FOR TAPE MARK 

GOTO FILE If F1=1<FM CONFIRMED) 

TERMINATE READ IF INTERRUPT CONDITIONS 

RESET Eob F/F 

GOTO FRDF TO HEAD NEXT RECORD 

CHECK PARITY OF THE READ BrTE 

GET READ BYTE IN R3 

MOVF THE DATA BYTE FROM LOW 

HALF OF R3 TO UPPER HALF 
SET OOO HYTE CNT & RST. RD. CLK. 
GOTO RDND2 IF EOb=] 
SKIP NEXT IF RD. CLK.=1 
GO BACK IN LOOP 

SET EVEN HYTE CNT 6, RST. PO. CLK. 
CHECK PARITY OF READ BYTE 
60 RACK IN LOOP IF F?=l 
GET READ BYTE IN R3 
OUTPUT THE I-dYTE TO DATA-IN RFG. 
OUTPUT THE II DATA BYTE 
SKIP NEXT IF FO=l 
SKIP 2 INSTRUCTIONS 
RESET FO 
GOTO NXTlb 

SKIP NEXT IF DATA-F/F=1 
SET TIMING ERROR STATUS 
RESFT DATA F/F 
SKIP 2 IF IN-XFFR = 1 
SET F2 TO INDICATE WC<REC. LENGTH 
GOTO LPlb 
SET SERV. REO. 
GOTO ROEND IF EOb FLAG=1 
GOTO RD166 IF RD. CLK.=1 
OTHERWISE STAY IN LOOP 
SKIP 2 IF F2=l 

SUb. CALL TO LOOK FOR TAPE ERROR 
GOTO ODENO 
GOTO FSRF IF 

FSR-FSF CMD. 
ELSE GO BACK 4 
GOTO RDND1 IF F2=l 
ZERO OUT THE COUNTER 
OUTPUT THE I-BYTE TO DATA-IN RFG. 
ZERO OUT THE LOWER DATA BYTE 
CNTRJ=1 WORD DELAY 
SKIP NEXT IF DATA-F/F=1 
SET TIMING ERROR 
SET SERV. REO. & RST. DATA F/F 
TIME OUT THE COUNTER 
SKIP NEXT IF DATA F/F=l 
SET TIMING ERROR 
GOTO ODEND 



W 
O 



en 

> 



to 



1247 
124P 
1249 
125i 
1251 
1252 
125^ 
1254 
1255 
1256 
1257 
125P 
1259 
1263 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
126fl 
1269 
127.' 
1271 
1272 
1271 
1274 
1275 
1276 
1277 
127R 
1279 
1280 
1261 
1282 
1283 
1284 
1285 
1286 
1287 
128a 
1289 
1290 
1291 
129? 
1293 
1294 
1295 

1296 

1297 
129P 
1299 
1300 
1301 
13«I2 
13U3 
1304 



• •»»o»«e««a»»»»a«»«««««»»»»ait«oa««»a«it««a««««<«ufl<>0«««««««aa«o< iiihhi o «a«««s*e 



AT IDENT if" OF in BURST IS WRITTEN AT LOAD POINT 



o 



> 



1124 
1125 
1126 
1127 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1140 
1141 
1142 
1143 
1144 



1145 
1146 
1147 

use 

1151 
1152 
1153 
1154 
1155 
1156 
1157 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1200 
1201 
1202 



11 
10 
10 
01 
10 
01 
01 
00 
01 

11 

00 
01 
00 
00 
10 
00 
00 



10 
00 
00 

11 

00 
00 
10 
00 
10 

11 

00 
10 
00 
01 

11 

00 
01 
00 
00 
10 
10 

11 

10 
01 
00 
00 

11 

10 

11 

01 



001 
HI 

111 

001 

111 

110 
001 

on 

110 
100 
000 
110 

111 

010 
110 
011 
000 



110 
011 

111 

100 
000 
HI 

111 
111 
111 

100 
000 
001 
011 
110 
100 
000 

no 

000 

111 
111 
111 

010 

111 

110 
001 

on 

100 

111 

100 

no 



110 

111 

100 

111 

100 

on 

HI 

101 

111 

101 

111 

in 

100 

111 
111 
111 
111 



101 
HI 
100 
100 

111 

100 

111 

100 

111 

100 

111 

101 
101 

111 

101 

111 
111 
111 

100 

in 
111 

110 
100 

on 
111 

101 
100 
100 
000 

on 



on 

001 

on 

000 
001 
001 
000 
001 
000 

111 

000 
001 
101 
001 

111 

001 
000 



111 

001 
001 
Oil 
001 
000 

on 

001 
001 
101 
001 

111 

001 
000 

111 

000 
001 
000 
000 

on 

001 
010 
001 
001 
000 
001 
101 
001 
001 
001 



110 

100 

111 

010 

111 

000 
010 
001 
001 
001 
001 
000 
000 
010 
101 
001 
001 



Oil 
001 
001 
001 
001 
000 
100 
000 
101 
001 
001 
Oil 
001 
001 
001 
010 
000 
010 
000 
101 
101 
110 

111 

000 
Oil 
001 
010 

111 

010 

000 



Oil 
010 

111 

010 
100 
001 
010 
Oil 

on 

Oil 

111 

001 
010 
001 

111 

100 

111 



111 

101 
000 
101 
010 
000 
000 
100 
001 

no 
111 
111 

110 

on 

110 
000 
001 
000 
000 

on 

010 
001 
110 
001 

111 
111 
on 

100 
Oil 

001 



111 
111 
no 
111 

101 

111 
111 

000 
010 

111 
111 

000 
000 
Oil 

111 

101 
HI 



110 
000 
000 
010 
100 
001 
000 
000 

111 

000 
010 
010 

111 

010 
101 
010 
000 
010 
010 
000 
000 
HI 
101 
101 

no 
on 

001 
110 

001 
101 



IDENT 



AOR RSM R38 R3A 



PSl R?M 
PSl R5M 
ADD R?M 

P«;I CTM 
C*L DFC 

Ann r?m 

JwZ RCS 
CAL Wf.AP 
JFS F(l7 
JuP DPOP 
CfL EPR16 
OTI LWH D12 
IOC U'P 
Ami uph 
JmZ **Z 

jmp drop 



UPH 

LWH 

R2B 

LWH 

WRTP3 

R2B RbA 



#350 

#1 

R5A 
• 32 



•♦2 



UPH 
R3B 



IS NON-ZFRO 
A GAP 



#357 

R3I 

#200 



D22 



• Ht»««tl«{H>«tltllllt«»ll»l>llll< 



aeeee«>««*ft»»»0a»»»OB«e««»«aa«0a<te««ee««aeee«oe 

ZERO OUT R5 

SET k2= TO *"ID BURST COUNT 
RS: = 1 

INCREMENT f>? 
PRESET THE COUNTER 
SUBROUTINF CALL 
R2:=R2*1 

GO BACK IN LOOP If R? 
CALL TO WGAP 10 WRITF 
SKIP NEXT IF EOH OFTFCTED BY DPlVt 
NO EOB - ERROR CASF 
SUB. CALL TO LOOK FOP TAPE f.RROR 
SET Fl t. RESET FOR 
GET 1600 STATUS IN PI 
LOOK FOR ID-BURST STATUS 

ID-^URST CONFIRMED-SKIP NEXT INSTkUCHON 
NO ID-BURST STATUS-ERROP CASE 
*»«44«»ft«0«««04 0a«tf «»•»•«• »«0»«ft«000fre0e0««ft0«0 

POINT FOR WRITING PREAMBLE* » 

BLOCK. 11600 BPI ONLY) » 



• ■•it 
WR16 



WRT16 

LPFM 

LPFMl 



BLK16 
a«»ee 



0O««0 

Ami 
JmZ 
OTI 
JFS 
JmP 
OTI 
Pt;I 
OTI 
PSl 
JFS 
JmP 
Xol 
JmZ 
CAL 
JFS 
Ji'P 
CaL 

JmP 

OTI 
PS I 
PSI 
PSB 
PSl 
CAL 

Anl 
JmZ 

JFS 
PSl 
JFS 
CaL 
• ••«» 

SkP 



WPl6 IS THE LOOP-ENTRY 

POSTAMBLE OR FILE-MARK 
00«««tt«««««0«a«0«0«00«««0««*«0««»00o«tf«a»«0*«0tt««»00<»»«0»«00000O««0tt»0 



LWH ROB 1 

» + 2 

LWH D02 #277 

Fnl »*2 

InENT 

LWH D00 



UPH 
D02 
UPH 
«*2 



RIM 

LWH 

R?M 

F02 

WOT16 

LWH ROB 

RCS »*6 

WfiAP 

F07 » + 2 

OnEND 

ERR16 

ODEND 

LWH D00 



#376 
#377 

#337 
#260 



GAP 



RIM 
R?M 
R5M 
CTM 

R?M 
RCS 
F02 
CTM 

F00 



UPH 

UPH 

UPH 

LWH 

DEC 

UPH 

LPFM 

FINli 

LWH 

DEC 

DEC 



#375 

#247 

#257 

RIB 

#12 

WRTP1 

R2R #1 



#31 

FIN16 

WRTP1 



LOOK FOR SUBGROUP OF WRITE 

SKIP NEXT IF WRP CMD. 

SET F2 TO INDICATE WFM OR GAP CMD. 

SKIP NEXT If f 1=1 (NOT BOT) 

GOTO IDENT TO WRITE ID-MURST 

SET OOD F/F 

FILL UPPER BYTE OF R] WITH ALL l'S 

RESET Fl 

R2:=-80 

SKIP NEXT INSTRUCTION IF F2=l 

WRR CMO.-GOTO WR16 TO WRITE PRFAMBI.E 

LOOK FOR GAP COMMAND 

SKIP 5 IF WfM COMMAND 

SUBROUTINF. CALL TO WPITF 3.7b" GAP 

SKIP NEXT IF tOR FLAG=1 

GOTO OOENO 

SUB. CALL TO LOOK FOP TAPE ERROR 

GOTO ODEND 

SET EVEN F/f 

Rl (UPPER) :=FM CHARACTER 

R2:=-81 

PASS UPPER BYTE OF PI IN PS 

PRESET THE COUNTER 

SUBROUTINE CALL 

R2UIPPER) :=R2*1 

GO IN LOOP IF R? IS NON-ZERO 

GOTO FIN16 IF F2=l 

PRESET THE COUNTER 

GOTO FIN16 IF F0=1 (POSTAMBLt WPITTEN) 

SUBROUTINF CALL 



«4»»«ft««««ft4«ft««fl4ft«tff«««««««tttt4««1>«tttt««fl««t«»»»fttt««4*&Da«4ltftft*ft»ft»e<»ft 



1 J: 



1 3 >' ; - 


















13 j 7 


















13:. P 


















13- o 


















131o 


1233 


10 


111 


100 


001 


111 


no 


100 


1311 


1204 


01 


110 


Oil 


OOO 


001 


100 


010 


131,? 


120S 


01 


110 


on 


001 


000 


001 


111 


1313 


12-6 


10 


111 


100 


001 


111 


110 


on 


1314 


12C7 


01 


110 


on 


001 


000 


001 


101 


131'- 


1210 


11 


111 


no 


on 


101 


110 


111 


13U 


1211 


11 


111 


no 


on 


101 


110 


111 


1317 


1212 


10 


111 


100 


001 


111 


110 


101 


I3lf> 


1213 


01 


110 


on 


001 


000 


001 


111 


1314 


1214 


10 


111 


100 


001 


111 


110 


on 


132 . 


1215 


01 


000 


on 


m 


111 


111 


111 


1321 


1216 


01 


110 


on 


001 


000 


001 


101 


132? 


1217 


u 


100 


100 


001 


010 


000 


on 


1323 


1220 


n 


001 


010 


Oil 


no 


Oil 


m 


1324 


1221 


10 


111 


100 


001 


111 


no 


100 


132 c 


1222 


01 


110 


on 


001 


000 


001 


101 


132h 


1223 


10 


111 


100 


001 


111 


no 


on 


1327 


1224 


01 


no 


on 


001 


000 


001 


101 


132b 


1225 


10 


111 


100 


001 


111 


100 


on 


1329 


1226 


10 


111 


on 


001 


101 


001 


in 


1330 


1227 


00 


111 


010 


001 


000 


100 


coo 


1331 


1230 


00 


000 


on 


001 


001 


111 


100 


133? 


















1331 


















1334 


















1335 


















1336 


















1337 


















133o 


















1334 


1231 


00 


111 


100 


000 


000 


000 


001 


134y 


1232 


11 


100 


100 


101 


010 


on 


101 


1341 


1233 


10 


111 


110 


001 


111 


001 


100 


1342 


1234 


00 


000 


on 


001 


010 


Oil 


no 


1343 


1235 


10 


111 


no 


001 


111 


Oil 


100 


1344 


1236 


11 


100 


001 


111 


010 


100 


001 


1345 


1237 


01 


010 


001 


001 


010 


Oil 


110 


1346 


1240 


00 


000 


in 


000 


001 


111 


111 


1347 


1241 


11 


100 


100 


101 


010 


100 


100 


134ft 


1242 


01 


110 


111 


001 


000 


001 


000 


1344 


1243 


00 


000 


111 


000 


010 


000 


010 


1350 


1244 


01 


no 


111 


001 


000 


000 


000 


1351 


1245 


00 


000 


111 


000 


001 


111 


101 



-a 



1356 
1357 
135h 
1354 
136' 
1361 



• WLP16 lb THE LOOP-tNTRY POINT FOR WHITING THL * 
» r>ATA-bLOCK. F0=1 As LONG AS 0UT"XFEK=1. o 

• (160O HPI ONLY) » 



WLPlh 



P^I 


CTM 


Ltoh 


#13 


C.-L 




LltC 


WRChk 


C-L 




DEC 


WRTPl 


pf,l 


CTM 


LwH 


*14 


CM_ 




DEC 


WRTPl 


PCA 


RSM 


RbA 


RL4 


p<;a 


RSM 


R5A 


RL4 


Psl 


CTM 


LWH 


#12 


CaL 




DEC 


WRTP3 


Psl 


CTM 


LWH 


#14 


nop 




DEC 




CAL 




DEC 


WRTt>l 


JFS 


FOO 


WLP16 


xdr 


RSM 


DEC 


P3B R3A 


PSI 


CTM 


LWH 


#13 


CM. 




DEC 


WRTPl 


PS1 


CTM 


LWH 


#14 


CaL 




DEC 


WRTPl 


Pel 


CTM 


LWH 


#34 


PSI 


R?M 


DEC 


UPH #260 


OTI 


UPH 


DEC 


D0<? #337 


J«P 




DEC 


LPFM) 



PRESET THE 
SUBPOUTINF 
SUBROUTINE 
PREStT THE 
SUbPOUTlNF 
LEFT ROTATE 

BY t>-BITS 
PRESET THE 
SUBPOUTINF 
PRESET THE 



COUNTER 
CALL TO 
CALL 
COUNTER 
CALL 

Rb 
IN PS 
COUNTER 
CALL 
COUNTER 



WPCHK 



LOOP IF F0=1 



NO-OPERATION 
SUBROUTINE CALL 
GO IN THE WRITE 
ZERO OUT R5 
PRESET THE COUNTER 
SUBROUTINE CALL 
PRESET THF COUNTER 
SUBROUTINE CALL 
PRESET THE COUNTER 
R2IUPPER) i=-«0 

SET FO TO INDICATE POSTAMBLE CASE 
GOTO WRITF POSTAMBLE 
eo«««»fttt«eae«*o»»«»0»««o»tt»eaatt«atta««eo«a«a»tt»a««««««ao«««»«»tt«»«*««««4>»»«r«a«eee 

» An END OF RLOCK PULSE IS AwAITEO AT FINI6 AFTFR « 

» WRITING OF DATA BLoCK OR f ILE-MAdK Is DONE. » 

» TAPE ERROR OR FILE-MARK STATUS IS o 

• CHECKED TO FNSURF SUCCESSFUL * 

• WRITINGU600 BP I > . • 



FIN16 



FM166 



OTI 


LWH 


D00 


#376 


JFS 


Fn2 


FM166 


Psl 


UPH 


CTM 


#63 


JMP 


<t*2 


DEC 




Psl 


UPH 


CTM 


#43 


JFS 


Fn7 


DEC 


o*3 


JxZ 


RCS 


DEC 


«-l 


J»p 


DROP 






JFS 


F02 


»o 




CaL 


ERR 16 




J»'P 


ODEND 




CAL 


FMP16 




JMP 


FM816 





SET ODD F/F 

GOTO FM166 IF F2=l 

CNTR:=.lbb"*eO CHARACTER DELAY 

SKIP NEXT INSTRUCTION 

CNTr:=.155" ♦ 20 CHARACTER DELAY 

SKIP 2 IF EOB=l 

STAY IN LOOP TILL CNTR. NON-^ERO 

CHARACTER DROPOUT CASE 

SKIP 2 IF WFM COMMAND 

SUB. CALL TO LOOK FOR TAPE ERROR 

GOTO ODEND 

SUB. CALL TO LOOK FOP TAPE MARK 

GOTO FM816 



«»#«««« 



135? 
1353 

1354 

1355 1246 10 001 101 111 Oil 111 001 ERCHK Xr>I LwH ROB RDR 



«««4««#*tt«««(lBftft««««l)»#ttoo#iift««##»««»e»4«ftl»««»#fl»«ft<ie««*ft«ft»»fit«««o»««««« 



SUBROUTINE TO CHFCK PARITY OF EACH BYTE IN RDR CMD. 



»»»»oo»ttO«»*»»»»»»»oo*»o0»»fl«<»»»o»»»««*»«*»»»»*»»»»*«»««»«»«ini»»»o»»o»«»»«»e»»»i> 



PERFORM PARITY CHECK ONLY 



1247 00 Oil 101 001 010 101 010 JmZ RrS **3 IF THE COMMAND IS »RDR' 

1250 11 100 110 Oil 010 101 010 JFS FU »*2 SKIP NEXT IF PARITY OK 

1251 00 111 100 000 100 010 000 Orl LwH DOl #357 SET TAPE ERROR F/F 

1252 01 101 111 111 111 111 111 RTN SUBROUTINE RETURN 

»»int»»«»»»*eo»»«»»ooo»»»««<nn»ooo*»o<i*»*»«*»»»»»o»»*»»'>»»»»»»»«»»»#0»»»»»» »«»o«»» 
SkP 



CO 

© 



en 
> 



to 



CO 

o 



136? 
1363 
1364 
1365 
1366 
1367 
136P 
1369 
137.i 
1371 
137? 
1373 
1374 
1375 
137* 
1377 
1378 
1379 
1380 
1381 
138? 
1383 
1364 
138^ 
138* 
1387 
138P 
1389 
139 I 
1391 
139? 
1393 
1394 
139=, 
1396 
1397 
139 A 
1399 
1400 
14<i)l 
14 V 2 

I4tn 



1314 
1315 
1316 
1317 
1320 



1327 
1330 
1331 
1332 
1333 
1334 
1335 



1361 
1362 
1363 
1364 
1365 
1366 
1367 
1370 
1371 
1372 
1373 

1374 
1375 



'JO 
10 
00 
10 

00 



00 
10 
00 
00 
10 
00 
00 



010 
110 
Oil 

111 

000 



010 

no 

011 

010 

no 
on 
ooo 



m 
in 

101 

111 
111 



111 
111 

101 

111 
111 

101 

111 



10 111 

11 100 1 
00 000 1 
00 111 1 
00 000 1 

00 111 1 

01 010 
00 010 1 
10 110 1 
00 011 1 
00 000 1 



100 

1 
1 



1 
1 
1 

1 
1 
1 

1 



11 111 

00 000 



001 

111 

001 

on 

000 



001 

111 

000 
001 

111 

001 
000 



001 
101 
001 
001 
001 
000 
001 
001 

111 

000 
000 



010 

111 

on 
111 

000 



010 

111 

000 
010 

111 

Oil 
000 



100 

on 
on 
ooo 
on 

000 
011 
010 

111 

010 

ooo 



001 
101 

001 
001 
001 



001 
110 
001 

001 
101 

on 
no 



101 110 

000 001 



010 

no 
no 

001 

no 

000 
110 
001 
101 
001 
000 

on 
111 



on 
m 

100 

loo 
on 



on 
m 
m 
on 
in 

010 
101 



001 
100 

no 
ooo 
m 
ooo 
in 
on 
m 

101 
100 

on 
in 



»OftOIHIflfltt*flfl»B»1lflftBB8ftfl»OOflB«(mtiHH)8ft*»OIH)fiftfifle<HH(*»«»t»*BH^e«<t«IHHt«(HHtOttftOft«flfl 
« « 

OPG *1314 

* * 

PTCHl IOC ImP R3I 022 UPH GET STATUS BYTE IN UPPER R3 

AMI UPH R3B #20 IS INT. FLA6=1? 

JmZ PCS «-2 YES, KEEP LOOKING AT THIS HIT 

Psl UPH RIM #63 Rl:=(TRYING TO SELECT UNIT) 

JmP C0NT1 GOTO C0NT1 TO CONTINUE WITH THF PROGRAM 

B|»S»«BO«B«««tB«S«««««t«««ttfll)oe«tta4C««B<«4«|tltSB<)ailfiOB««««Bt«gBI)B<tBDfiBB«4««ft««»«B 
« « 

0»G #1327 

• o 

«*ft«BB«fl««ftO««»BfttHt««fl*B*ft(lB»BO«BBBOB*OBBO«»B«lHtBO#tt*«BBB»##ttft«*(HHH(BB«llB*«Bft*BB 

PTCH2 IOC IM.P R3I 022 UPH GET STATUS BYTE IN R3 

Awl UPH R36 #10 LOOK FOR SIO OK BIT 

JwZ RCS MAIN GOTO MAIN IF ALREADY IN SIO ROUTINE 

IOC IMP R3I 022 UPH GET STATUS BYTF IN ft 3 

AMI UPH R3B #20 IS INT. fLA6=l? 

JmZ RcS »-2 YES. KEEP LOOKIMG AT THIS BIT 

JmP SCANO GO RACK TO SCANO 
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PATCH P<U 
JFS 
JMP 
OTI 
JN'P 
OTI 
JxZ 
IOC 
AMI 
JwZ 

JmP 

• 1BIBSBH 

PTCH3 PSA 
J!"P 



Lwh 
F16 
»*3 
UPH 
• ♦2 
UPH 
RCS 

IMP 

UPH 

STOP 

WAIT 

»«o»» 

R4A 
DROP 



CTM TCOST 
**2 

O02 #367 

D20 #377 

DEC <• 

R3I 022 UPH 

K3B #20 



PRESET THE COUNTER WITH COAST DELAY 

SKIP NEXT IF IN-XFER=1 

SKIP 2 INSTRUCTIONS 

SET DEVICE-ENU 

SKIP NEXT INSTRUCTION 

SET SERV. REO. 

TIMF OUT THE COUNTER 

GET STATUS BYTE IN UPPf. P R3 

IS INT. fLAG=l? 

NO. GOTO STOP1 

INTFRRUPT NOT YET PROCESSED. GOTO WAIT 
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ROM 



RESTORE RO FROM R4 



ERRORS 
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